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Survive 
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For Bridge 
Players Only 
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on the Russian 
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Telengard: An 
Adventure in 
Terror 
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Magic and 
Monsters 
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Commodore Software- 



. . .Take on the world, toughen up 
your trigger finger and fire away. . . 



Commodore has been the 
best game in town in comput- 
ers for awhile ... at home, at 
school and work . . . with our 
exciting, easy to use. inex- 
pensive VIC 20 and C64 
computers. 

While computers can edu- 
cate, organize, create and 
integrate, they can also be 



fun . . . with the best games 
in town. 

Commodore's inexpensive 
arcade quality games can 
keep everyone in the family 
amused and entertained. 

Teach the kids hy- 
giene while they 
fight the scary 
Tooth Invaders. 
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The Best Game in Town 
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Flex your reflexes {against 
your friends or your enemies) 
witti the speed and skill 
of Supersmash, Pinball 
Spectacular and 
Frogmaster. 
Drive like the wind to 
take the checkered flag 
L in LeMans and 



conquer all the elements, jusi 
like the 24 hour road race. 
Become a space star as 
you battle aliens, land your 
space machine on distant 
planet surfaces, and defend 
your base in Avenger, 
Jupiter Lander, and 
Star Post. 
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Cm. commodore 

^ COMPUTERS 

First In Quality Software 

See your local dealer now. . . He's gt3t the best game in town . . just for you. 
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Coming Next in Commodore's User Magazines 

CommodDra Microcomputers, Issue 30, July/ August: Our next issue will 
feature telecommunications — what it is, who's using it and for what, 
and how you can gain from tuning into the many services available via 
your computer and telephone. 

Powei/Play, Issue 10, August/ September; We're spotlighting user groups 
in our next issue, so be sure you don't miss this one. Commodore's user 
groups are an important force in helping you learn more about your 
computer, so If you don't already belong to one, you'll find out why you 
should. Or why you should start one. 




Key to Entering Program Listings 

"[F1,F2,F3,F4,F5,F6,F7,F8}":F1,P2,F3,P4, 

F5,F6, F7 AND F8 
" [POUND] ": ENGLISH POUND 
"[PI] "PI SYMBOL 
""":UP ARROW 

" [HOME] ":UNSHIFTED CLR/HOME 
" fCLEAR] ": SHIFTED CLR/HOME 
" [RVSJ": REVERSE ON 
" [RVOFF] ": REVERSE OFF 
" [BLACK, WHITE, RED, CYAN, MAGENTA, GREEN, BLUE, 

YELLOW] " THE 8 CTRL KEY COLORS 
"[ GRANGE, BROWN, L, RED, GRAY 1,GRAY 2,L. 

GREEN, L. BLUE, GRAY 3]": THE 8 

COMMODORE KEY COLORS (ONLY ON THE 64) 
GRAPHIC SYMBOLS WILL BE REPRESENTED AS 

EITHER THE LETTERS SHFT (SHIFT KEY) AND 

A KEY: "[SHFT 0,SHFT K,SHFT V,SHFT T, 

SHFT L] " 

OR THE LETTERS CMDR (COMMODORE KEY) AND 

A KEY: "[CMDR Q,CMDR H,CMDR S,CMDR N, 

CMDR 0]" 
IP A SYMBOL IS REPEATED, THE NUMBER OF 

REPITITIONS WILL BE DIRECTLY AFTER THE 

KEY AND BEFORE THE COMMA: " [SPACES , 

SHFT S4,CMDR M21" 
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Simulator n 

















Pur^ourself Inthe pilot's seatof a PlperiBI Cherokee Archer for an awe-inspiring flight over realistic scene 
from New York to Los Angeles. High speed color-filled 3D araphics will give you a beautihjl panoramic vli 
as you practice takeoffs, landings, and aerobatics. Complete documentation will get you airborne quickly 
even if you've never flown before. When you think you're ready, you can play the World War I Ace aerial battte. 
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over 80 airports In four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery { 
areas available ■ user-variable weather, from dear blue skies to grey cloudy conditions ■ complete flight j 
Instrumentation" VOR, ILS, ADF, and DUE radio equipped ■ navigation facilities and course plotting ■ World i 
War I Ace aerial battle game ■ complete informatian manual and flight handbook. / 



See your dealer . 

or write or call tor more Intormalion. For direct orders please add J1.S0 for 
shipping and apeciJy UPS or lirst dass mall delivery. American Bcptess, Diner's 
Qub, MasteiCard, and Visa aocepl<jd. 



Order Line: 800/637-4983 




WUOGIC 

Oorporatlon ,, 

713 Edgebrook Drive :% 

Champaign IL 61820 ^' 
(217) 359-8482 Telex: 206995 
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WHY THE COMMODORE 64 

A CLASS BY ITSELF. 




T 




At Commodora we think it's easier for scliool children to learn 
about a computer by using it rather than by waiting to use it. 

So, we sell the Commodore 64™ at about half the cost of 
comparable computers. 

With the money you save on the Commodore 64, you can afford 
the things you'll really need: more Commodore 64's. 

In fact you can create a powerful but economical "Local 
Network" with 8 computers sharing one disc drive. 

The Commodore 64 features: 64K memo ry, 66 ke y ty pewriter - 
st yle keyboard , 16 color hi g h resolution gra phics , 9 octave music 
s ynthesizer and 3-dimensional sprites . 

And the same commitment we make to hardware, we're making 
to software. We have highly rated Logo and PILOT programs. 
Much of the well recognized MECC™ courseware and the Edufun™ 
Series from Milliken will soon be available. There are hundreds of other 
programs, including a wealth of public domain software for the 
Commodore 64. Our newest additions are 30 early learning programs 
from Midwest Software. 

So you see, the all purpose Commodore 64 really is in a class 
by itself. 

For further information on the Commodore 64 and our 250 
Educational Resource Centers, contact your nearest Commodore 
Education Dealer. 
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Edutun ond MECC are iriHJetnarks o) Milliken PublisHing Company and Minnesota Educalional Computing Consortium naspeelruelv. 
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NEW! IMPROVED! 



Here it is, our first bi-monthly edition of Power/Play. 
(By now you've also probably noticed we're using a new 
format, as well.) We're delighted to bring you more of 
what you want more frequently in a format we think is 
easier to follow and even more enjoyable to look at than 
ever. If you have an opinion, one way or the other, about 
what we're doing, we'd like to hear ftom you. After all, 
you're the reason we're doing it in the first place. 

In addition to all the other changes we've been going 
through in the past few months, we're also expanding 
our staff. As of this writing, we've added Pamela Fedor 
as Advertising Sales Manager, but by the time you're 
reading this we'll have a new assistant editor, who'll be 
handling news and reviews, and a programming assis- 
tant who'll keep Jim Gracely, our technical editor, from 
drownmg in disks and program listings, (1 can still see 
the top of his head, so I know he's in there somewhere.) 

Recently we got a list of the top twenty best selling 
computer books from B. Dalton Booksellers, a national 
bookstore chain with over 700 stores. The list surprised 
even me. In that top twenty, thirteen — count 'em — 
thirteen— were books about the Commodore 64. This 
means people are not only buying Commodore comput- 
ers, they're also learning to use them. Which reminds 
me to remind you that if you want to get the most out of 
your computer, you have many resources — including a 
whole raft of books devoted to your specific computer, 
be it a Commodore 64, VIC 20 or PET/CBM. 

In this issue we're featuring the best of the new strat- 
egy games for the Commodore 64 (You'll also notice that 
our Circulation Manager, John O'Brien, has taken out 
his old word processor and polished it up again after 
many months of disuse, to produce a couple of game re- 
views.) And if you're a VIC 20 owner you'll find a lot of 
information about your computer in our various depart- 
ments. In fact, if you turn to Kids' Comer you'll find yet 
another dubious contribution from the mysterious Dr, 
Petrie Curryfavor — a second "un-word" processor for 
creating more secret messages with your VIC 

However, if you want to use your VIC more "seri- 
ously" (oh come now), you'll like Richard Stare's 'Border- 
line" program even better. Or perhaps having your 1525 
printer learn to speak gothic and bold will appeal to you. 
My point is that whatever your interest, you'll find some- 
thing in this issue for you. Provided you're interested 
in having fun with your computer, that is, 



If you're wondering what's new in software for your 
Commodore computer, we can assure you a LOT is 
new, judging from the overwhelming quantity that was 
shown at the Softcon software trade show in New Or- 
leans this past February (you have to realize that I'm 
writing this in March, so this is still news). According 
to our reliable sources, the most outstanding packages 
shown by independent manufacturers were Wave- 
form's MusiCah and keyboard for the Commodore 64, 
Moviemaker for the Commodore 64 from Interactive 
Picture Systems, the "Tymac Talkies" series for the VIC 
and 64 (from Tymac. of course — a company that, I hear, 
operates out of a converted A & P supermarket in 
Franklin, New Jersey}, the new Reader's Digest series 
and an educational series from a new company called 
Mindscape, Look for reviews of these and other products 
in upcoming issues. 

Before I close it up for this month, I think I should 
mention a new book from Osborne/McGraw-Hill titled 
Home Computer Softwaie Guide by Steve Ditlea. Nor- 
mally. O/McG-H produces high quality books that you 
can rely on for good mformation, but it looks like some- 
body wasn't paying attention when this one came 
through Although its copyright date is 1984, this so- 
called "guide" doesn't even mention the existence of 
either the Commodore 64 or PET/CBM computers, let 
alone talk about software for them. And it provides only 
a sketchy (I'm being kind) representation of what's 
available for the VIC 20, although I suppose we should 
be grateful that the author at least noticed the VIC is 
around here and there. We don't recommend it. C 




Diane LeBold 
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game reviews 



B.C.'s Quest 
for Tires 



Reviewed by John O'Brien 

Commodoia Publishing 

Siena On Line 
Coarsegold, CA 93614 



This game on disk for the 
64 is based on the famous 
comic strip by Johnny Hart. 
The player controls Thor on 
his famous wheel. Thor can 
only jump or duck and speed 
up or slow down and the 
player can control the length 
of these motions. The only 
other skill needed is timing. 

The object of the game is 
to rescue the pretty girl who 
yells "help help" throughout 
the game. It starts out easy 
enough, you just roll along 
jumping over some ruts and 
bumps in the road. But then 



the game gets progressively 
harder with rolling rocks, 
ponds, caves, dinosaurs and 
even "the fat broad" (don't 
send the nasty letters to 
me— that is what they call her 
in the comic strip) coming 
between you and the damsel 
in distress. 

The game does have some 
excellent qualities. The graph- 
ics and scrolling action are 
very good and entertain- 
ing as well. The characters 
are true to the comic strip 
and Thor gives you a per- 
turbed look when he is sink- 
ing in the pond. The level of 
difficulty can be changed by 
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speeding things up. And 
although there are a few 
difficult moments, they be- 
come easy once you figure 
them out. 

One of the difficult mo- 
ments occurs when you get 
to the first pond. Turtles are 
moving up and down in the 
pond and "the (at bread" is 
waiting with a club a! the 
other side taunting you with 
"jump sucker." The trick here 
is to wait for the moment 
when the turtles all come up 
at the same time. It takes a 
while, so be patient, They al- 
ways come up in the same 
pattern, so you only have to 
figure it out once. 

B.C. may be scoffed at 
by the serious gamer (if a 
gamer can indeed be called 
serious) for the limited chal- 
lenge of Ihe play action. This 
same feature makes it most 
enjoyable for younger 
game players. 



Soft War 



Beach Head 

Reviewed by John O'Brien 

ConirnodorL* Publi stung 
Access Softwcue 
925 East 900 St. 
Salt Ljike Criy, UT 8410S 

In Beach Head, the 
player's mission is to destroy 
the enemy's big gun. How- 
ever, there are a lew things 
that stand in your way, in- 
cluding torpedo-infested 
waters and a heavily armed 
enemy fleet. Obviously, 
Beach Head will be enjoyed 
most by war simulation en- 
thusiasts, but many other 




game players will also like 
the exciting play action and 
strategies needed to win. 

The best thing about 
Beach Head is that there are 
five screens to master and 
they all require different skills 
and strategies. On the tor- 
pedo level, lor example, you 
must remember that you can 
steer only left or right. The up 
and down motion of the joy- 
stick will only speed your 
ship up or slow it down. 

The torpedo screen is op- 
tional, which brings up 
another interesting feature of 
the game, There are two 
basic strategies the player 
can choose from. You can 
either engage the enemy di- 
rectly or try a sneak attack 
using the dangerous secret 
passageway. It may seem 
easier at first to use the direct 
attack, because the secret 
passage is where you en- 
counter the torpedoes. But I 
found the sneak attack a 
much better strategy, even 
though you can suffer heavy 
casualties trying to get your 
ships through when you first 
try it. It takes time to get good 
at this screen but it is worth it 
because if you use this strat- 
egy, the next two screens are 
much easier. 

On the next screen you 
encounter the enemy fleet. 
You are bombarded by 
planes coming off the enemy 
aircraft carrier. If you don't 
chose the sneak attack, this 
screen can be a real wrist 
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buster, because you have to 
shoot down so many planes. 
Rapid fire is the best strat- 
egy. This screen features the 
best graphics and sound ef- 
fects of any screen in the 
game. The pianes look and 
sound as if they are really fir- 
ing on you and then rolling 
out of range of your gun. The 
planes must hit you several 
tinnes before they destroy 
a ship so keep your cool 
and keep firing, If you survive 
this round there are only 
five ships between you and 
the beach. 

The graphics and play ac- 
tion on the beach screen are 
a little disappointing. The 
graphics are flat and the play 
action is limited, because you 
can only maneuver your tank 
up and down: the speed can- 
not be controlled. Despite 
this the screen is challenging. 

I didn't like the fact that 
once you knock out the big 
gun, the game ends. So you 
can "win" the game with a 
relatively low score, But once 
you get good at the game 
you're going to want to pick 
up as many bonus points as 
possible to get a high score. 
The higher skill levels just 
seenn to speed things up. 

Overall the game promises 
hours of fun. There are four 
skill levels and up to two 
players can play at once. 




Reviewed by 
Tom McNamara 

Cnmrr.cKioIO Advertising 



Synapisu Soltwaio 
5221 Coiiiial Avenue 
Richmond, C A 94804 



Did you think that Blue 
Max is your typical aerial com- 
bat game? You're wrong! 
Blue Max proves itself to be 
one of the hottest games 
so far for the Commodore 
64, with some very enter- 
taining arcade features, 

AsaWorldWar I flying ace, 
your mission is to attack the 
enemy by shooting, bombing 



and strafing everything in 
enemy territory. The targets in- 
clude enemy planes, build- 
ings, bridges, tanks and ships. 
In order to gain entry to the 
next level you must hit a cer- 
tain number of the primary 
targets. The ultimate goal is 
to safely get into the enemy 
city and successfully knock 
out the three special targets. 
Blue Max is a three- 
dimensional diagonal scroll- 
ing game which at first 
seems graphically reminis- 
cent of Zaxxon. Besides 
keeping an eye on the in- 
strument panel for altitude, 
fuel, speed and bombs, the 
player must watch out for 
planes that attack from both 
ends and also anti-aircraft 
firing from the ground. This is 




what makes the game so 
frustratingly entertaining. 

What I like best about Blue 
Max is the play action. It has 
a great simulation and feel 
for an airplane in flight. For in- 
stance, when it's windy or 
when the plane is damaged 
due to anti-aircraft, the plane 
loses its maneuverability. 
The instrumentation panel is 
also easy to understand with- 
out being distracting. Using 
the shadow of the airplane 
gives the player a great feel 
for altitude and bombing. 

One of the nicer features is 
the pause, which will allow 
the player to pause the game 
with no time penalty. You also 
have the option of setting the 
joystick for forward to climb, 
back to descend and vice 
versa. Using the joystick in 
the game's reverse mode 
allows for the standard air- 
plane joystick action— pulling 
back to climb in altitude and 
pushing forward to descend. 

There are a few things to 
remember when you're trying 
to increase game play, such 
as not bombing your own 
airbase. This results in a 



crash and a much shorter 
game. Another good tip is 
that if you land as close to the 
beginning of the runway as 
possible, you will have plenty 
of speed for the next take-off. 
This is important because 
not enough airspeed during 
take-off will also result in a 
crash. I also found out that it 
is much easier to sink the 
ships by strafing than by 
bombing. You will need as 
many flashing targets as you 
can get if you are to win at 
Blue Max \ 

Finally, when you reach 
the quota of key targets 
destroyed, you enter the 
enemy city. The three targets 
there must be successfully 
bombed in order to com- 
plete the mission and receive 
the award. 

After many hours of play, 
Blue Max maintains its fun 
and challenge. It is a "must" 
for the aerial combat game 
connoisseur as well as strat- 
egy game connoisseurs of all 
ages. Overall, Blue Max is a 
"four star" action game! 




the first two levels. 

The main objective of 
Trams is to profitably run a 
railroad, In order to do this, 
you must bring needed ma- 
terials to various industries, 
buy them from various 
sources, and have enough 
money to pay for fuel, labor 
and repairs to continue run- 
ning your train. 

If this sounds terribly 
familiar, then you'll love it! It 
takes the next logical step-up 
for successful Monopoly 
enthusiasts without threat- 
ening the train hobbiest 
with extinction. 

Trains has eight levels of 
play, with each level getting 
progressively more difficult. 
The music, sound, color and 
graphic representations are 
ranked as "admirable". The 
joystick control is smooth and 
faultless, Loading is typi- 
cally Spinnaker simple and 
the packaging is first class. 

Don't let all these ac- 
colades fool you. Trains is 
challenging, frustrating, de- 
manding and enormous fun. 
In spite of all this rhetoric, I'd 
be sure to give myself about 
two light-years of time on 
Level 1 so as to have a light- 
ing toot of a chance with 
Level 2. 

Trains is a winner and well 
priced in the $35-540 range. 



Review^ed by S.G. Grodin 

Dallas 64 Usei's Group 

Spinnaker 
Z15 First Street 
Cemhiidge. MA 

Spinnaker products, in 
general, define their target 
audience well. Trains is 
identified for an audience of 
ages ten to adult. This writer 
believes that a strong eight 
year-old could probably 
enjoy and learn from at least 
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news nDm rne i rant 



Free Computer Camp 



The traditional fun and 
challenge of summer camps 
now includes the bits and 
bytes and RAMs and ROMs o( 
computer programming. To 
tielp parents and ctiildren 
ctioose from ttie growing 
number of day and resident 
summer camps that provide 
computer instruction. Ver- 
batim Corporation, in cooper- 
ation witfi the American 
Camping Association, is of- 
fering a tree reference guide, 
"Camps 'n Computers— A 
Directory of Summer Com- 
puter Camp Instruction in the 
United States." 

With more than 100 listings, 
the directory divides the 
camps into six regions: New 
England, Middle Atlantic, 
South, Midwest, Southwest 
and West. Each enlry includes 
the camp contact, address 
and telephone number, tuition, 
length of sessions and recre- 
ational facilities. Also included 
are the number and types of 
computers, the studenl/com- 
puter ratio, instructor qual- 
ifications, computer programs 
taught and the number of daily 
computer hours available to 
campers. Camps with ACA 
accreditation are clearly identi- 
fied, with colleges and uni- 
versities as well as other camps 
constituting the remaining 
instructional sites. 

"As summer computer 
camp instruction increases in 
popularity, we're delighted to 
assist parents and children 
with a directory like Camps 'n 
Computers," says Armand B. 
Ball, executive director at the 
ACA. "Its listings will help di- 
rect families to the many fine 
day and resident camps now 
providing this special kind of 
instruction." 



Directory 

When deciding on a com- 
puter camp. Ball recommends 
thai individuals first determine 
their own level of computer 
experience and then use the 
directory to identify the camps 
that offer the most appropriate 
level of instruction. "Some 
camps teach sophisticated 
computer languages like Pas- 
cal or FORTRAN for experi- 
enced computer users, while 
others specialize in LOGO and 
BASIC, which are more appli- 
cable for beginners." he adds. 

Most of the camps also offer 
a wide variety of recreational 
and other educ.n\ onal oppor- 



tunities, combining traditional 
organized camp activities with 
computer instruction. "The atmo- 
sphere at summer computer 
camps IS ideal for anyone 
interested in learning about 
computers," says Shely Said- 
man, manager of account mar- 
keting and Special educational 
projects at Verbatim, a lead- 
ing manufacturer of magnetic 
media products. "The camps do 
a great job at integrating 
Softball with software." 

For a copy of the directory, 
send a check for SI (for post- 
age and handling) payable to 
Verbatim, at: "Camps 'n Com- 
puters," Suite 228, 4966 El 
Camino Real, Los Altos, CA 
91022. 




Use 
BASIC 
to Solve 
Everyday 
Problems 



Creative Computing Press 
has released a senes of six 
Ideabooks by David H. Ahl. 
Versions are available for most 
microcomputers, including the 
Commodore 64. 

The Ideabooks demonstrate 
dozens of ways to make the 
most of a computer for solving 
both everyday and unusual 
problems. The 50 ready-to-run 
programs illustrate scores of 
different techniques lor solv- 
ing problems in mathematics, 
science and business. 

The ten chapters deal with 
formulas, repetitive trials, con- 
vergence, recursion, com- 
pounding, probability, geom- 
etry, simulations and drill- 
and-practice. 

The author, David H. Ahl, 
has been involved with the use 
of computers since 1957. He is 
the author of 16 books and is 
the founder" of Creative Com- 
puling and SYNC magazines. 
The book is delightfully illus- 
trated with drawings and car- 
toons by Wayne Kanishiro. 
Softbound. 150 pages, 5'/s" x 
8", S8.95, the books are avail- 
able from Creative Computing 
Press. 39 E. fHanover Ave., 
Morris Plains, NJ 07950. 



12 POWER/PLAY June/July 1984 




You deserve the best. You've earned It. Now reward yourself wHti a session o( Night Mission PIN B ALU, 
ttie most realistic and challenging arcade simulation ever conceived! ■ Stunning graphics and dazzling 
,^ — -- ■- — ^ sound effects put Night Mission PINBALL In a class by Itself. Game features: multl- 

"t"fBfiMjIi.lt**t \ "all and multi-player capabilities, ten different professionally designed levels of play, 

' IfflP* • 'i — ^ ^"^ 3" ""*'"■ *^^' '®** y" create your own custom modes. ■ So taite a break with 
, ' W' ' a ^ Night Mission PINBALL from SubLOGIC. Winner of Electronic Games magazine's 
' 1983 Arcade Award for Best Computer AudioAfisual Effects. 



See your dealer 



LOGIC 



713 Edgebrool< Drive 
Champaign IL 61820 USA 
(217)359-8482 Telex: 206995 



S" ■;i^.-"- 
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GAMES IN TONA/N 






II 






Arcade Action Games 

Pinball Spectacular: Real pirtball action and Ihrllls. Sound 
you won't believe. Chutes, lights, bumpers and more. 

Supers mash: Raquelball arcade classic. 3 games in 1. Many 
skill levels keep the cfiallenge alive- 
Tooth Invaders: Reviewed by American Dental Assoclallon. 
Arcade action teaches good dental care, Beal OK at all 9 play levels. 

StarPost;ProtectlheStarPost from waves of Invaders , 3 levels 
OfS kill, 99levelsO( action, 

Avenger: Destroy attacking aliens with laser cannons. Classic 
arcade action. Multi-speed attacks. 

Jupiter Lander: Space landing simulation. Horizontal/vertical 
thrust. Soft-land scoring. Wowi animation. 

Radar Rat Race: Beat the maze. Eat all the cheese. Beware 
deadly cats/rats. Cartoon action f jn Icr all ages 

Lemans: f^ulti-obstacle road racing at its besl. Arcade action and 
graphics. Night, water and divided highway hazards. 

Star Ranger: Fight your way through hoards of space enemies. 
Avoid asteroids and land safei^. Superb graphics and space action, 

Frogmaster: Unique sports challenge. Train animals topiay 
football and rugby. Over 100 variations, PlayagainsI, computer, friend 
or yourself. 






Children's Series 

Introduction to Basic I; Simple stop-by-step instructions. 
Modular design. Practical BASIC applications as you learn 

Zortek and the Microchips; Award winning program 
leaches children BASIC through games, graphics and stories. 

Easy Lesson/Easy Quiz; Take the drudgeiv out of writing 

tests and quizzes. Answer keys provided, 7 categories per test. 

Number Nabber/Shape Grabber; 2 Learning games 
■ml. Build both math and object identillcatlon skills. Lively graphic and 
sound effects. 

Visible Solar System: Fly the soiar system. Land on 
planets. Calculate age and weighl. Astronomy for home and school. 
Award winner. 

Speed/Bingo Math: 2 games In 1 teach children 4 to tO basic 
math skills. Beat the dock or your friends. 




leiffeo.. 















•■jl 



Bally Midway 

Gorf: 4 space action games in 1. Fly your fighter defeat "Tha 
Empire". Mulli-skill levels. IT TALKS I (wilh Magic Voice) 

Wizard of WOR: FlgW your way through 30* mazes. Defeat 
Ihe Wizard and Womofs. Mulli-skill. IT TALKS! (with Magic Voice.) 
Award winning con version. 

SeawolfiTheclassicbattleatsea. Destroy PT Boats and 
Destroyers. Great graphics and sound. 

Omega Race: Fast space race action. Many skill levels. Avoid 
tleadly mines as you eliminate droid forces. 

Clowns: Amazing aclion under the 'Big Top". Help clowns "pop" 
balloons. Colorfjl acrobalics. Fun lor all. 

Kickman: Ride the unicycio and catch falling objects. Multi-skill 
levels. Tuneful sound. Watch out! Don't tall! 

Blueprint: Help J.J. Puild ihe "Ammo Machine". Parts are stored 
in a colorful maze of houses. Multi-skill and difficulty levels, 

LazarJan: 4 different screens. Mult I -ski It level space action. 
Rescue, evade obstacles and destroy a one-eyed leviathan. 




Adventure Gaines 

Zork I: Fantasy adventure in a dungeon. Rrx) all the treasure and 
escape alive. 

Zork II: This dungeon adventure dares you to find treasure and 
secret places and still survive. 

Zork III: The ultimate dung eon test. Discover the Dungeon 
Master's secret purpose and come out alive. 

Susponded: Awake In 500 years. Solve varied real and original 
puzzles to save the plane! trom total destruction. 

Starcross: Travel through the mystery ship. Meet aliens friend 
and foe. Face Ihe challenge of your destiny. Map of galaxy included. 

Deadline: Find the murderer and solve the mystery all in \2 
hours. Inspector casebook and evidence included. 




Music Series 

Music Machine: Play piano or organ melodies and percussion 
rhythms together. Music staff shows notes on screen. Vibrato, terrpo 
and pitch controls. 

Music Composer: Create, play and save your tunes easily 
Simulates up to 9 instruments. Notes appear on screen. Play your 
keyboard like a piano. 




_j ^srcofnTDodore^ 
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^ COMPUTERS 

First In Quality Software 




^0"' New 
64 Games 



Four now Commodore 64 
games leaturing dramatic ac- 
tion and sophisticated strate- 
gies are now available from 
Tronix Publishing, Inc. 

The two new action games. 
Slalom and Motccross. and 
two adventure strategy 



games, Waterline and Suicide 
Strike, join the successful Kid 
Grid and Ju/ce!— olher Tronix 
games for the Commodore 64 . 

Tronix's adventure strategy 
games present the player with 
tough choices and hair-raising 
challenges. For example, in 
Waterline. created by Steve 
Morris, the player can be a 
hero and save the ship's pas- 
sengers. He can rescue the 
ship's valuable cargo by 
grabbing a few bars of gold. 

In Suicide Strike, designed 
by Graham McKay, the player 



IS challenged to maneuver his 
aircraft through waves of 
enemy planes and gun-fire to 
reach his military target, A 
shrinking fuel supply and a 
tight deadline for returning to 
his home base add tension 
and suspense to the player's 
strategic moves. 

One of the most notable 
features of Suicide Strike is the 
game's rear-view mirror, which 
shows action behind as well as 
in front of the player. It works 
just like a real rear-view mirror, 
with planes flying in towards 



AdventureWriter 
Games Systems 
Programmed in English 



Dynatech Microsoftware, 
Inc., has introduced Adven- 
tureWriter^". a games system 
based on their CodeWnter^" 
concept, that allows the user to 
design games by program- 
ming in English language. 

"AdventureWriter provides 
the software owner with some 
significant advantages over 
purchasers of packaged 
games that are "locked" in a 
single format," said Warren 
Shore, President, Dynatech 
Microsoftware. 

"One distinct advantage of 
AdventureWriter and all of our 
CodeWriter-based products is 
versatility," Shore said. "You 
are not buying a ono-purpose 



game application. You are 
getting a games system that 
allov/s you to create a virtually 
limitless number of games." 

AdventureWriter also pro- 
vides another level of en- 
tertainment—the challenge 
and sense of accomplishment 
of designing your own unique 
games. Shore added. 

AdventureWriter games are 
easily designed. The software 
instructs the user how to pro- 
ceed through a systematic 
process of building a format, 
requiring the operator only to 
type in appropriate responses 
in Simple English. 

Throughout the program- 
ming process, Adventure- 



Writer provides "open win- 
dows" that allow the operator 
to build new concepts into the 
game. Treasure hunting, jun- 
gle escapes, mazes, haz- 
ards, villains and heroes can 
be designed by tfie user. 

Once the game is set, Ad- 
ventureWriter automatically 
converts the English re- 
sponses into computer lan- 
guage and the game can be 
recorded on the user's own 
diskette. 

Since each game created is 
the user's own design, the 
"author" can claim ownership 
and even copyright the game. 






the player If the player ma- 
neuvers to the right, approach- 
ing planes appear to move left. 
The player has to stay on top of 
three things: approaching 
enemy fire, a diminishing fuel 
supply, and a clock running 
out of time. 

Tronix president John Reese 
said that computer gamers 
have become so sophisticated 
thai new offerings have to in- 
volve the player at more levels 
in order to sustain the ele- 
ments of interest and fun. 

"Most of the early games 
were pretty straightforward," 
he said. "But today's players 
want refined characters, play, 
packaging and animation." 

More information on Tronix 
products is available at 
the company's headquarters, 
8295 S. La Cienega Blvd., In- 
glewood, Calif. 90301. The tele- 
phone is (213) 215-0529. 
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Database for the 64 



COMPUTERSTUFF an- 
nounces the release of a 
multi-functional database pro- 
gram tor the Commodore 64. 

DATA* MAX is a flexible, easy- 
to-use database system that 
can balance your checltboolt, 
keep a household budget, re- 
cord collections and take 
care of almost any home filing 
chore. The software and exten- 
sive user guide are written 
especially for the newcomer 
to computers. All options are 
screen prompted and re- 
quire a single key stroke 
to execute, eliminating the 
need for constant referrals to 
the manual. 

DATA'f^yJAX can maintain an 
unlimited number of 10,000- 
character flies containing up to 
200 eight-field records each. A 
sub-file option allows the user 
to split a full file into two or 
more smaller ones, enabling 



expansion beyond the 200- 
record limit, A special "escape, 
key" allows any program op- 
tion to be aborted without loss 
or change of data. Use of color 
displays and full sound 
prompting give instant visua 
and aural response to user 
input and error conditions. 

DATA" MAX is written in 
compiled code for fast search, 
sort and disk access. It re- 
quires a Commodore 64 and 
disk drive. Detailed user guide 
includes explanations of how 
to use DATA 'MAX as a 
chGckbook/budget manager, 
address book, insurance in- 
ventory and simple accounts 
receivable/payatjle recorder. 

The package is available 
only for the Commodore 64 on 
diskette for $29,95 from COM- 
PUTERSTUFF 308-'/2 Green 
St., Yankton, SD 57078. Phone 
(605) 665-2833, 



Computer- Controlled 

Alarm 



VIN Systems (U.S.A.) an- 
nounces the development of a 
complete intruder alarm sys- 
tem. The system features the 
fvlodel V100 alarm interface, 
which plugs into either the VIC 
20 or Commodore 64's user 
1/0 port. VIN Systems (U.S.A.) 
furnishes software on either 
cassette or disk to operate the 
V100 alarm system. 



The VI 00 alarm interface 
monitors four magnetic switches 
for an intruder. When an in- 
truder is detected, a piercing 
95db siren is activated. The 
system can be easily ex- 
panded to include pressure 
mat switches, glass breakage 
and vibration detectors, panic 
switches and much more. 

The V100 system includes 
the interface, four magnetic 
switches, a 95db siren, 100 
feet of wire and necessary 
software. The price of this total 
package is $69.00, 




Cursed Your 
Computer Lately? 

Newsletter Offers $25 
7b Print Your Troubles 



Make a mistake with a ham- 
mer and you smash your 
thumb. (And perhaps call the 
hammer a few choice names.) 
Make a mistake with a com- 
puter and what happens? 
Chances are you have some- 
thing worse than a smashed 
thumb and all the blue lan- 
guage you know won't begin to 
make you feel any better. 

A new newsletter^ — titled 
"@'&!l%# COMPUTERS!" 
but pronounced "Expletive 
Computers"— might help you 
to ease the pain. Write down 
your tale of woe, complete with 
all the anxiety-producing de- 
tails, and submit it for publi- 
cation. If your true story is 
interesting, heartrending and/ 
or amusing enough, it will 
be printed in an issue of 
"@"a«l!%# COMPUTERS!", 
and you'll receive $25 for 
sharing your experience with 
the newsletter's readers. 

Don't overlook any example 
that you or an acquaintance 
might offer — the repeated 



computer-generated invoices 
you've received for a bill that 
wasn't yours: the expensive 
equipment a friend purchased 
that now sits in a closet; the 
unbelievable hassles you went 
through to reconstruct a wiped- 
out memory. 

Write it down! Then send it, 
with your name and address, 
to "Expletive Computers!", 
P 0, Box 553, Mt. Freedom, NJ 
07970. If It appears in a future 
issue, you'll receive $25 for 
taking the trouble to reveal 
your trouble. 

One-year subscriptions (ten 
issues) to "@"&l!%# COM- 
PUTERS!" can be obtained for 
$6, also to be sent to the above 
address. The premier issue is 
scheduled for April, 1984. 
Sorry, "©•&!!%# COtviPUT- 
ERS!" will not accept adver- 
tising, except from abacus 
manufacturers who've been 
in business 200 years or 
more... 



New 

SoftwaT^ 
for Kids 



Fulurehouse, Inc. has an- 
nounced the release of 
Playground Software, an edu- 
cational series designed to 
be used with their Edumate 
Light Pen. Alphabet Construc- 
tion Set and Bedtime Stories 
incorporate S.A.M^" voice 
synthesis, which has been 
licensed from Don't Ask Soft- 
ware, Inc, Computer Crayons 




and Animal Crackers focus on 
the graphics capabilities of 
the Edumate Light Pen. 

Playground Software is 
targeted at children two to 
eight years old and is available 
on disk for the Commodore 64, 
The retail price is $29.95. 
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Resource for 
Washington, D.C., 
Computer Owners 



Despite all the resources in 
the Washington, D.C. area for 
home computer owners, many 
area residents don't know 
where to go or have the time to 
discover what's available. 

With the new year comes a 
unique publication that puts 
relevant information at their 
fingertips in a format that's 
quick to read and easy to un- 
derstand. Specially designed 
for the Washington area home 
computer owner, Home Com- 
puter Briefs: An Easy Guide to 
Information for Persona/ Com- 
puter Owners is a monthly 
newsletter that guides owners 
to resources that will help them 
get the most out of their 
equipment. It features articles 
on training, repairs and other 
services; a word processing 
column; a calendar of users' 
group events (beginning 
February); reviews of micro- 
computer books and where 
they can be obtained locally; 
and a column through which 
readers can share good and 
bad experiences with their 
computers, salespeople, mail 
order houses and repair shops. 

"We plan to spend time dis- 
covering everything available 
in this area to meet the needs 
of local home computer own- 
ers," says co-publisher Donna 
M.Hill. 

"Such an information source 
is really needed," she con- 
tinues, "because with such a 



complex subject, and such a 
rapidly changing industry, it's 
impossible to find one person 
who knows everything about 
every computer, or even all the 
answers about any one, and 
that includes salespeople, 
computer buffs and the like." 

Co-publishers Donna M. Hill 
and Jenner Ivlandel have 
backgrounds in the editorial 
and technical writing fields, At 
the time Home Computer 
Briefs was conceived, Hill and 
f^andel were both technical 
writers in the Division of Data 
Processing at the Federal Re- 
serve Board. They are sup- 
ported by an editorial board of 
computer analysts and home 
computer buffs. 

Backed by a study confirm- 
ing that one out of four home 
computer owners doesn't use 
his/her equipment. Hill and 
fyiandel created Home Com- 
puter Briefs to fill the needs of 
these owners. 

"We want to reach those 
who dropped out," says Hill, 
"cut time for those who are 
busy with other activities, help 
them alt come closer to tapping 
the full potential of their 
equipment " 

Anyone interested in a one- 
year subscription (S18) should 
call or write to Home Computer 
Briefs, 3421 M. St., N.W, Suite 
1739, Washington, D.C. 
20007, (202) 965-4428. C 



oooK review 





m 


-- 


- 


— 


-l__ 


"::i:: 


-^ 






" ■■ *" 


*:: 


fr 






::::. 


_ _ — — 





1 








" 


z 


I 






-^ 


- 


'I' 


ii 













Z~-. 


": 


\ki 






















iMa 


I" 








— 1 


~ i 


m ,-■ 






















t ■'_ 
III 


V 










' 1 




L 































1 




1, 


















tt** 


f?F^^~~T 






X"" 






1 




% 
















'■ 


\i 










-i 


1 


'■ 1 


L 


- 


- 


-L-- 







- 


W 


ULi. 


<t 1 

■N.l 


- 










r- 






m 


h 


d 




-~M 


wi 


mr 


. irrs 


-.«S 


ilh: 


.-I" 


:i 


ti 


■HB^K 


inSi?.. . i i 1 . I W 


KJ- 




4 

■ 


- ■ - « •• — - . »» t 







The Commodore 
Puzzle Book 

Reviewed by Lou Hinshaw 

Authors: Nevin B. Scrimshaw and Gordon Lee 

Publisher: Birkhauser Boston, Inc. 380 Green 

Street, Cambridge, MA 02139 

Date; 1983 

Price: $7.95 

Pages: 125 pages, softcover 

Generally, programming skills grow from plateau 
to plateau. That is to say, a fair writer of programs 
might slog along for quite some time doing fairly 
good work and not improving any to speak of. But 
one fine day, the fairly good skill, our intrepid pro- 
grammer finds, is not good enough. He must grow 
or fail and for a few days at the very best, his life is 
a life of anguish as he sweats out an approach to a 
very sticky problem. Often he is not the only one 
sweating. A sticky problem can be the end of a job 
in some cases, competition being what it is in 
many shops. 

The foresighted programmer, then, will wel- 
come T^ie Commodore Puzzle Book. Here, for 
use with a home computer, are a host of brain 
sharpeners, a veritable landslide of preparation for 
the next hard one at the shop, and fun to boot! 

Ostensibly written for Commodore computers 
and BASIC, the problems offered here will be a 
challenge on any machine and in any language 
I know. For fun and profit, I recommend Tiie 
Commodore Puzzle Book. The most- used remark 
in the appLcation of the book is going to be, "This 
problem is not as blamed simple as I thought!" 

The book is in three parts: puzzles, programs, 
and solutions. For the lazy computenst, let me 
warn you, keep out! The programs in the middle 
often only suggest approaches and the solutions 
are almost limited to checksums. The problems, 
fifty in all, are word pictures with logical difficulty 
and simple math. The subjects range from religion 
through carpentry to cryptology. (Is that a full 
circle?) A sample program is provided for each 
problem, and the programs can be run on most 
home computers. 

The Commodore Puzzle Book: BASIC BTainteas- 
ers, by Lee and Scrimshaw, is about as good a 
way to spend eight dollars as I can think of, "Kids 
of all ages" may love or hate it but few, I think, will 
ignore this book. A great gift. C 
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commoaore challenge 



Congratulations 
Contest Winner 



David Liu, Diamond Bar, California, for Crash 



Crash.For the Unexpanded VIC 20 
by David Liu 

Try to drive your cai around the track collecting dots 
without Crash -ing into the rival car that's out to get you. 
Move from outside tracks to inside tracks using the 
"gates" located betwreen checkered areas. You control 
your car from the keyboard, using F5 for up, F7 for dov^n, 
S for left and D for right. Gentlemen (and women), start 
your engines! 
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The Commodore Challenge 

Prizes * Prizes • Prizes 

Thanks to all of you who submitted programs. 
They were all, as usual, great fun. (We never 
seem to have any problems getting volunteer 
judges for this department, for some reason.) 
And keep up the good work. Maybe next time 
the winner wHl be you. 

If you've been playing around at home developing 
original games and programs for your unexpanded VIC 
20, send your best— on cassette or disk, please — to the 
Commodore Challenge contest. Include a brief descrip- 
tion of the program's purpose, including documentation on 
how to use it. If it's a game, be sure to include instructions. 

Programs requiring memory expansion are eligible, 
too, but will not be published unless space allows. 

Winners vrill receive a VIC 20 8K Memory Expander 
Cartridge. All entries become the property of Commodore 
Business Machines, Inc., upon submission. 

Fill out the entry form below, and submit it with your 
game or program to: 

Commodore Business Machines, Inc. 
IZOO Wilson Diive, West Chester, BA 19380 
Attn: POWER/PLAY 



Caumodora Ctullingi ContiK... Eotry Form 



(Con tinued On Naxi Page) 



Naine- 



Age_ 



Phone_ 



Addross.- 



Piogtam Title- 



State- 



Zlp_ 



Cuy 

[ undorBtand that my Boftwaiep sntiy becomos tha ptopotty o! CommwJoio 
Business Machines. Inc.. upon submission 



Signatme- 



Paiorifs slgnatuie. if contBstant is minot- 



Vojd Where Prohibited 
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[RVOFF] . [SHFT -] " 

20 PRINT" [SHFT ~] . [CMDR +] , 
[CMDR +]. [CMDR +}.[CMDR Z, 
SHFT *3,CMDR X] . [CMDR +1. 
[CMDR +1 . [CMDR +1.[SHFT -] " 

21 PRINT" [SHFT -].[SHFT -] . 

[SHFT -] . [SHFT -] 

[SHFT -].[SHFT -].[SHFT -] . 
[SHFT -1" 

22 PRINT" [SHFT -].[SHFT ~] , 
[SHFT -) . [CMDR Z,SHFT *, 
CMDR 4, SHFT *,RVS1 [RVOFF, 
SHFT *,CMDR +,SHFT * , CMDR X] . 
[SHFT -l.fSHFT -l.[SHFT -] " 

23 PRINT" [SHFT -l.[SHFT -] . 

[SHFT -] [SHFT -] . 

[SHFT -] . [SHFT ~] " 

24 PRINT" [SHFT -J. [SHFT -] . 
[CMDR 2, SHFT * 3, CMDR +,SHFT *, 
RVS] [RVOFF, SHFT *,CMDR +, 
SHFT *3,CMDR X1,[SHFT -] . 
[SHFT -] 

25 PRINT" [SHFT -].[SHFT -] 

[SHFT -] . 

[SHFT -J ": PRINT" [SHFT -]. 
[CMDR Z,SHFT *5,CMDR +,SHFT *, 
RVS] [RVOFF, SHFT *,CMDR +, 
SHFT *5,CMDR X].[SHFT -] " 

26 PRINT" [SHFT -] 

....[SHFT -]": PRINT" [CMDR Z, 
SHFT *19,CMDR X] " 

27 T=PEEK(S} :CH=CH+1 

:IF CH>1 THEN GOSUB 600 

28 PRINT" [HOME, D0WN21] 
HIGH SC0RE";HI:Z=Z+1 
:IF Z<2 THEN 41 

29 PRINT" [HOME, DOWN] MAZE 
:",-PO;TAB(10) ;TH; 

:FOR 1=7720 TO 7723:POKE 1,32 
:NEXT:FOR 1=7720 TO 772a+2-ED 

30 POKE I,87:NEXT:Z=0 

:IF PEEK{S+A)=46 THEN 33 



31 
3 2 

3 3 
34 
35 
36 



37 
38 



39 



40 



41 
42 

43 

44 

45 

46 
47 



43 
49 
50 

51 



53 

55 
56 

57 

60 

500 

503 



504 

505 



IF PEEK{S+A)=87 THEN 500 

IF PEEK(S+A)<>32 THEN E=A:A=B 

:B=C:C=D:D=E 

IF PEEK(S-22)=160 THEN Al=-44 

IF PEEK(S+22) =160 THEN Al=44 

IF PEEKtS-l)=160 THEN Al=-2 

IF PEEK(S+22)=160 AND 

PEEK(S-22)=160 THEN 

A1=44*(INT{RND{1} *-3)+2) 

IF PEEK{S+1)=160 THEN Al=2 

IF PEEK(S+l)=16fl AND 

PEEK{S-1)=160 THEN 

Al=2* (INT(RNDCl)*-3)+2) 

IP ABS(A1)=3 OR ABS(A1}=66 

THEN A1=0 

POKE S,T:S=S+A+A1:T=PEEK(S) 

:POKE S,81:A1=0:IF T=87 THEN 

500 

X=0iGET A$:IF A$=""THEN 45 

IF A$="[F5]"AND ABS(K)=1 THEN 

X=-44:V=-22 

IF A$ = ''[F7] "AND ABS(K)=1 THEN 

X=44:V=22 

IF A$="S"AND ABS(K)=22 THEN 

X=-2:V=-1 

IF A$="D"AND ABS(K)=22 THEN 

X=2:V=1 

IF PEEK{R+V) O102 THEN X=0 

S0=S0+2:P0KE R,32 

:IF PEEK(R+K+X)=46 THEN 

SC=SC+PO:POKE 36876,180 

:C1=C14-1:G0T0 51 

IF XO0 THEN 51 

IF PEEK(R+K)=81 THEN 500 

IF PEEK(R+K)<>32 THEN P=K:K=L 

jL=M:M=N:N=P;SO=0 

S2$=STR$(SC) :R=R+K+X:P0KE R,87 

:SC$="0 30"+RIGHT$(S2$, 

LEN{S2$)-1) 

PRINT" [HOME, DOWN 11,RTGHT9] "; 

RIGHT$(SC$,3) 

X=0:IF Cl=160 THEN 1 

IF SC=999 THEN TH=TH+1:SC=0 

IF SC+(TH*10OR) >HI THEN 

HI=SC+(TH*1000) 

POKE 36876, 0:GOTO 28 

POKE R,86:SO=0 

FOR 1=230 TO 128 STEP-5 

:FOR 0=1 TO 3:P0KE 36873+0,1 

:NEXT 0,1 

FOR 1=1 TO 4:P0KE 36873+1,0 

:NEXT:LS$=SC$ 

ED=ED+1:IF ED=3 THEN ED=0 

:FOR 1=1 TO 4O0O:NEXT 

:PRINT" [CLEAR] " :GOTO 
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503 



507 POKE R,32:POKE S,T 

:IF T=87 THEN POKE S,32 

508 A=-1:B=22:C=1;D=-22:S=7756 
:Z=0:K=-1:L=-22:M=1:N=2 2 
:R=8H7 

509 T=PEEK(S) :FOR 1=1 TO 500:NEXT 
:G0TO 28 

600 POKE 36877, 0:POR 1=7724 TO 
8142 

601 IF PEEK(I)=102 THEN POKE I, 
lfi0:POKE 36876,222 

:FOR 0=1 TO 10:NEXT:GOTO 

602 IF PEEK(I}=160 THEN POKE 
102:POKE 36876,250 
:FOR 0=1 TO 10:NEXT 

603 POKE 36876, fl:NEXT:RETURN 

700 E$=" [CLEAR, DOWN] 

GET READY TO PLAY . . . [SPACE2] 
":FOR 1=1 TO 23 
IPRINT MID$(E$,I,1) ; :CH=0 

701 IF MID$(E$,I,1)<>» "THEN 
POKE 36875,235 

702 FOR 0=1 TO 99: NEXT 
:POKE 36875, 0:NEXT 
:B$(1)=" [RIGHT, DOWN] [RED, 
SHFT N,CMDR +2 , DOWN, LEFT3 , 
CMDR +, DOWN, LEFT, SHFT M, 
CMDR +2,RIGHT] ":2=0:SC=0:Cla0 
:PO=0 

703 B$ (2)=" [WHITE, CMDR +2, SHFT M, 
DOWN, LEFT3, CMDR +,SHFT L, 
CMDR +, DOWN, LEPT3, CMDR +, 
SHFT M2, RIGHT] " 

704 B$ (3)=" [BLUE, SHFT N,CMDR +, 
SHFT M, DOWN, LEFT3, CMDR +, 
CMDR POUND, CMDR + ,DOWN, LEFT3, 
CMDR +] [CMDR +, RIGHT]" 

705 B$(4)=" [WHITE, SHFT N, 
CMDR +2,DOWN,LEFT3,SHFT M2, 
DOWN, LEFT3, CMDR +2, SHFT N, 
RIGHT] " 

706 B$(5)=" [RED, CMDR +] [CMDR +, 
DOWN, LEFT3, CMDR +3, DOWN, 
LEFT3,CMDR +] [CMDR +,DOWN, 
RIGHTS] " 

707 C$="(GREEN]BY DAVID LIU 
[WHITE] ":D$="TO PLAY... HIT 
[RVS] RETURN [RVOFF] " 

708 SC$=STR$ tVAL(RIGHT$(SC$, 

3) )+TH*1000) :IF SC$=""THEN 
SC$="000" 

709 C1$="LAST SCORE:"+SC$ 
:FOR 1=1 TO 10 

710 POKE 36875, 150+(I*5) 
:POKE 8054+1,81 



:POKE 8075-1,87 

:FOR 0=1 TO 10O:NEXT 

:POKE 8054+1,32 
711 POKE 8075-1, 32:NEXT:R=8054+I 

:POKE R,86:POKE R-1,81 

:POKE 35876,0 
715 FOR 1 = 1 TO 5:PRINT 8$ (I); 

:NEXT:POKE 36877,200 

:rOR 1=15 TO STEP-. 05 

:POKE 36878, I:NEXT 
720 POKE 36878, 15:P0KE 35877,0 
731 FOR 1=1 TO LEN{C$) 

tPRINT MIDS(C$,I,1) ; 

:rF MID$(C$,I,1) <>" "THEN 

POKE 35875,235 
733 FOR 0=1 TO 100:NEXT 

SPOKE 35375, 0:NEXT 

: PR I NT "[DOWN 2] 

735 FOR 1=1 TO LEN(C1$) 

: PRINT MID$(C1$,I,1) ; 

:IF MID$(C1$,I, 

1}<>" "THEN POKE 35875,235 

736 FOR 0=1 TO ia0:NEXT 
:POKE 36875, 0:NEXT 
rPRINT" [D0WN2] 

737 FOR 1=1 TO LEN{D$) 

: PRINT" [UP] ";LEFT$(D$,I) 
:rF MID$(D$,I,1)<>" "THEN 
POKE 35875,235 

738 FOR 0=1 TO 100:NEXT 
:POKE 35875, 0:NEXT 

740 FOR 1 = 1 TO r,50:GET A$ 

:IF A$=""THEN 750 
745 IF ASC(A$}=13 THEN RETURN 
750 NEXT:PRINT'* [CLEAR, DOWN, RVS , 

SPACE4]THE CONTROLLS 

: [SPACE4]" 

755 PRINT" iSPACE2, CMDR e,DOWN, 
LEFT2,CMDR M]S(CMDR G , DOWN , 
LEFT2,CMDR T, RIGHT, UP] 

: LEFT [DOWN] " 

756 PRINT" [RIGHT2rCMDR @ , DOWN , 
LEFT2,CMDR M]D[CMDR G,DOWN, 
LEFT2,CMDR T, RIGHT, UP] 
:RIGHT[DOWN] " 

757 PRINT" [RIGHT, CMDR @2,D0WN, 
LEFT3,CMDR M]F5[CMDR G,D0WN, 
LEFT3,CMDR T2, RIGHT, UP] 

: UP [DOWN] " 

758 PRINT" [RIGHT, CMDR @2,D0WN, 
LEFT3,CMDR M]F7[CMDR G , DOWN , 
LEFT3,CMDR T2, RIGHT, UP] :DOWN" 
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le pystick lunatic 



The 

Fantastic 
Computer 
Olympics 



by Steve Finkel 



Just when you thought it was safe 
to go back into the computer game 
stare .... comes the Joystick Lunatic 
(in 3-D, if you wear those special 
paper glasses). The Joystick Lunatic 
is a new feature in Power/Play that 
will focus its attention on the world 
of computer games. 

The computer gamer and com- 
puter game genre are an unusual 
blend of human persistence, techni- 
cal equipment, playing techniques, 
etc. , with game styles and forms 
ranging from the obscure to the obvi- 
ous, from the apocalyptic to the 
whimsical. They afford us a chance 
to observe, which often leads to in- 
sight, understanding and amuse- 
ment. The computer gaming arena 
readily lends itself to analysis. Fre- 
quently, the computer gamers them- 
selves enter analysis. (That was a 
cheap one-liner, so ignore it. The 
Joystick Lunatic abhors cheap 
one-liners, preferring instead the 
lengthier cheap two-liner.) 

Never in this column will you find 
a joke that is intended to get a cheap 
laugh at someone else's expense, 
such as this: How many game 
players does it take to change a 
lightbulb? This is not what anyone 
would consider an insightful obser- 
vation, and really just doesn't make 
the high score page on my monitor. 
No, what the Joystick Lunatic is 
more concerned with is thoughtful, 



meaningful information that will ex- 
pand the reader's scope and possibly 
change the way he or she looks at the 
world. Then again, perhaps the aim 
of this column is just to fill two pages. 
In either case, that brings us to the 
topic at hand, 

With all the excitement over the 
upcoming summer Olympics, it 
might surprise people to learn that 
every year for the last tour years there 
has been an Olympic -style competi- 
tion for computer gamers from all 
over the world. The events and con- 
testants have become more sophisti- 
cated in the last few years, compared 
to when the games began. The one 
thing that has always remained con- 
stant is the spirit that pervades 
the games. 

In the competition between gam- 
ers of all nations, the competitors all 
share one quality: they are rotten 
losers. 

Thus, under the banner of the 
games (the five interlocking monitor 
screens) voices of the competitors 
chime together in a universal mes- 
sage unhindered by language dif- 
ferences: "CHEATER!!" 

Bad sportsmanship aside, the 
games do represent computer game 
competition at its very finest. Some 
of the best game people in the world 
compete, the only restrictions being 
that they must be amateurs (the 
Communist Bloc nations are annually 
accused of sending professional 
gaming teams) and that they don't 
take anabolic steroids to enhance 
their game-playing prowess. Some of 
the events that have become stan- 
dard in the competition are: 

Joystick Toss— Contestants, 
after a very poor round of their favor- 
ite games in which they lose all their 
men because the joystick is broken, 
must hurl their joysticks as far as they 
can. Those throwing the joystick 
the greatest distance are judged 
winners. In case of a tie, the gold 



medal is awarded to the contestant 
whose joystick suffers the most dam- 
age because of the toss. 

World record holder in this event 
is Sergei Popanov, a Russian com- 
petitor who threw his joystick with 
such force that he not only set a dis- 
tance record, but knocked a local 
government official out cold when 
the joystick struck him on the 
forehead. Sergei is not eligible for 
parole until early March, 2041, but 
plans to continue his promising 
career while in custody by hurhng 
invisible joysticks. His constant 
imaginary practice sessions will 
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serve a secondary purpose: a seri- 
ous attempt to substantiate his 
lawyer's insanity defense plea. Best 
of luck, Sergei. 

Speed Reastting^All world- 
class game players have to be adept 
at hitting the restore key when they 
experience extreme failure in the 
early rounds of a game that began as 
an attempt at a new high score. The 
more experienced the gamer, the 
faster the restore button is pressed 
and the game reset. The world-class 
resetters often seem to anticipate the 
loss of a ship so readily that if you 
blink, you might not even know they 
re-started the game. 

From its inception, this event has 
been dominated by the team from 
Ireland. (That's right, the Irish Re- 
setters, Sorry.) Ending their dynasty, 
however, was a young Yugoslavian, 
Feodor Dubrovnik, whose resetting 
exploits are legendary. Feodor, in 
point of fact, never really understood 
what was going on, but this only in- 
creased his resetting prowess. 

Legend has it that Feodor, in his 
prime, never actually finished a com- 
puter game, instead pressing reset 
an average of 68 times a mmute. 
When asked if possibly it might be 
more fun to actually play the game, 
young Dubrovnik replied "What? You 
mean there's more?". It seems that 
Feodor was under the impression 
that computer games merely entailed 
the pressing of the reset key when 
the title screen came up, and he real- 
ly didn't see what all the fuss was 
about. Upon learning otherwise, 
Dubrovnik left the competitive reset 
arena and has now devoted himself 
to trying to popularize the up-and- 
coming new sport of Jello surfing. 



In the competition 
between gamers of 
all nations, the com- 
petitors all share one 
quality: they are 
rotten losers. 



Freestyle Lightpen Maneuver- 
ing—Participants manipulate light- 
pens over a monitor screen m a 
dramatic style to a musical piece. 
Points are given for originality, style, 




overall concept, and appropriateness 
of musical selection, Gershwin's 
Rhapsody in Blue and Strauss' Blue 
Danube Waltz are traditional favor- 
ites for background music. 

One of the major surprises m the 
Summer games was a silver medal 
being awarded to a punk rock con- 
testant. 6' 5" 240-pound Lyle "Filthy" 
Axemurderer. whose self-composed 
music served as a major boost to the 
medal. His song, "If I Don't Win a 
Medal, I'll Set the Judges' Heads on 
Fire," apparently was received vrith 
overwhelming approval by the 
judges, who gave him an excellent 
score. Other contestants were less 
than impressed by what they termed 
his "artless scribbling" with the 
lightpen, but the judges' decision 
was upheld by unanimous acclaim 
when he unveiled, in a special exhi- 
bition, another composition, "I Know 
Where You All Live and What Your 
Children Look Like", 

Between Rounds Snack Relay 

— The purpose of this event is to 
dash to the refrigerator and fix a sub- 
stantial snack, return to the game 
and consume said snack, eating as 
the game continues by controlling 
the joystick with one hand and eat- 
ing with the other, 

Lloyd Glutton, of England, once 
consumed a nine-course meal 
featuring hot soup, shrimp cocktails 
and three different entrees, without 
losing a man. However, this great 
performance did not make the record 
books. At the weigh-ins Lloyd qual- 
ified as a middleweight, but after 
his fine effort, his classification 
was a heavyweight. Not only was 
Mr. Glutton's performance overlooked 
in the record books because of this, 
but his wife refused to let him re- 



enter the house until he shed his 
excess poundage. 

In last year's competition, a near 
tragedy occurred when the French 
entrant Bridget Fromage lost her 
concentration and inadvertantly ma- 
nipulated a croissant with her right 
hand and used her left to swallow her 
joystick. She was rushed to the hos- 
pital where they were able to remove 
only part of the implement. She has 
nearly completely recovered, except 
that now her belly button functions 
as a fire button. If she gets poked in 
the stomach, she automatically ex- 
pels whatever she has in her mouth. 
This is often embarrassing at finer 
restaurants, but sometimes there is 
a price to pay for greatness 

These are only some of the popular 
and entertaining events that high- 
hght the Games Olympics. It may not 
match the real Olympics in excite- 
ment, drama or even sponsors, but it 
does have some legitimate notoriety. 
It seems that the president of the In- 
ternational Computer Games Olym- 
pics Committee somehow misled 
the 1981 Luxembourg Gaming Team, 
causing them to believe that the 
games were to be held at the South 
Shetland Islands (just off the Antarc- 
tic Peninsula), Dedicated gamers as 
the Luxembourgers are, the entire 
team trekked through the frozen ice 
floes, only to find that the games 
were being held elsewhere. Although 
they missed out on that year's com- 
petition, the devoted Luxembourg 
team did manage to make the early 
editions of the world's newspapers 
and bring glory to the good name of 
Luxembourg and gamers in general, 
bemg the first group of people ever to 
place a joystick on the South Pole. 

As I said before, sometimes there 
is a price to pay for greatness. The 
Luxembourg squad was not properly 
prepared to face the bitter cUmate, 
making no special arrangements for 
cold-weather footwear. After wan- 
dering around the Antarctic for six 
weeks wearing sneakers, each team 
member sufiered from acute frostbite 
on their toes, often referred to in the 
sporting world as the agony of de 
feet. (Was that you I heard groaning 
just now?) 

By the way, the answer to the 
lightbulb question is none, since all 
gamers know that the monitor screen 
looks better in the dark, anyhow. C 
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bi Older to have your high score published, you must 
send in a photo of the winning screen showing the 
score. Make sure your name and address are on the back 
of the photo. If your score is high, we'll run your name 

VICZOGaous 



and score as soon as we can get it in. Be patient. We 
work far ahead putting an issue together, so it might 
take a whiJe for your score to show up. 



OMEGA RACE 



PINBALL 



RADAR RAT RACE 



RAID ON FORT KNOX 



SEA WOLF 



SKY IS FALLING 



SLITHER 



SUPER ALIEN 



SUPER SLITHER 



SUPER SLOT 



VIC AVENGER 



Commodore 64 Games 



AVENGER 



CLOWNS 



HCKMAN 



LEMANS 



OMEGA RACE 



STARPOST 



Scon 



BLUE MEANIES 


Peter J. Cwik, Detroit, MI 


1,440 


CAR CHASE 


Alan Howard, Silver Lake, KS 


90,440 


CLOWNS 


Jon Kirkbride, Cedars, PA 


97,780 


COSMIC CRUNCHER 


JoeLindo, Burlington, Ontario 


998,180 


DRAW POKER 


R. Callia, Tonance, CA 


17,410 


GORF 


Thad Kizior, R. Murray, Alberta 


354,220 


JUPITER LANDER 


Christopher Champlain, St. Petersburg. FL 


207,400 


MIDNIGHT DRIVE 


Nathan Mehl, Newark, DE 


14.11km 


MOLE ATTACK 


Ryan Phillips, Montpelier, VT 


427 


MONEY WARS 


Bob Grant, Bensalem, PA 


69.140 



JimNelson,S. Elgin, IL 



1,502,300 {5 ships) 



Joe Ferrari. Commodore. Toronto 



1,500.000 



Jennifer Zaruk, San Diego, CA 



147.240 



Chad Strait, Ankeny. lA 



8.414 



Alieia Kondalski, Toledo. OH 



29.500 



Christina Zip. Toledo. OH 



22.080 



Richard R. Surmy. Sr.. Catasauqua. PA 



293 



Robert Schaeffer. Brookline. MA 



45.700 



Norbert Scheel. Mississauga, Ontario 



203 



Judith Wright, Cheektowaga, NY 
Nathan Brown. Newark. DE 



10,960 coins 



23.120 



Britt Feldhaus, Edina, MN 



33,600 



Carla Heiland. S. Pasadena, CA 
Alan Miller. Cincinnati. OH 



94.180 



Chris Waldroff, Deephaven, MN 



530,208 
274,460 



Alan Kalis, Athen, OH 



Carl Peterson, Poway, CA 



600.500 (4 ships) 



329,900 



If your score didn't set a record this time, keep playing! Maybe you'll topple these champion gamesters next time! C 
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game programs 



Skycatcher 



by Len Lindsay 



This program is written for the Commodore 64 
using the COMAL lemguage and disk drive. 
COMAL is a structured programming language 
available on disk for the Commodore 64 for 
$19.95 from the COMAL Users Group, U.S.A., 
5501 Groveland Terrace, Madison, Wisconsin, 
53716. It is also available on disk for PET/CBM 
for $14.95. For more information on COMAL, 
contact Len Lindsay at the address above. 




Skycatcher 



miQ //CELETE "0-SKV-'CRTCHER21" 


0260 


IF J<;£>270 THEN K2-=270; DELTR2-=0 


mZd // QOMflL PRODRRM: skv CRTCHER 


0270 


// MO\'E PLfiVERl 


m32 //SfiVE " 8 ■■ SKV ■' CATCHERS? " 


02S8 


IF DELTRl >=0 THEN 


0049 // BV: CRPTRIN COMRL & FRIENDS 


0290 


SPRITEFOS 0,X1.V1 


0058 /.'• FRIEHJS: LEH LINDSflV. MOENS 


0388 


SPRITEPOS l..-A\/n 


KJRER- LRRS LRURSEN. JEHS ERIK 


0310 


ELSE 


JEMSEIi 


0320 


SPRITEPOS 1>K1.V1 


0060 // PLRCES INTO FLlBLIC DOtlfilH 


0330 


SPRITEPOS 0/'<l>Vi 


0070 // 


0348 


END IF 


0088 BIM t103S$ OF 64, CH$ OF 1, SCORE* 


0350 


/.■' MOVE FLRVER2 


OF 4 


8360 


IF DELTB2>=0 THEN 


0030 PROS 


0370 


SPRITEPOS 2,K2.V2 


0100 PRSS "18" //INIT DISK 


03S0 


SPRITEPOS 3..X2.V2 


0118 READ 'SPRITES 


0390 


ELSE 


0120 ERCKGROLtHD 2 


0480 


SPRITEPOS 3,K2,Y2 


8138 BORDER 2 


0418 


SPRITEPOS 2.X2,V2 


0140 PEMCOLOR 1 


0420 


ENIilF 


8158 INSTRUCTIONS 


0430 


OET'NEKT'MOVE 


%1S0 SET 'DIFFICULTY 


0448 


IF 3PRITEC0LLISI0N<1.TRUE> OR 


0173 INIT 




SPRITECOLLISIOMO.. FRL3E> THEN 


0180 DONE;=FRLSE 




COLLISION 


0190 REPERT 


0450 


FBLL I NG-' PIECES 


0208 // DELTRl & DELTfi2 RRE RMOljHT TO 


0460 


HMTrL DOtJE 


MOVE SIBEUflVS 


0470 


SETTEKT 


0210 Kl^+DELTRl.! X2-+DELTR2 


84S0 


// 


8220 // CHECK HOT PRST BORDER 


8450 


PROC INITGRME 


0250 IF XKl THEN YA-'-^X^ DELTRL =8 


0508 


DIM PIECES(HUM'PIECES.2> 


0£4S IF X2<1 THEN KS^^l; I>ELTR2-=8 


0518 


HEW 'PIECES 


0250 IF K1>S'?0 THEN XI -=278; DELTRl "=0 


0520 


FOR l:=4 TO NUrrPIECES+3 DO 
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0530 
0549 
3559 

0370 
05S0 
9590 

0600 
0S10 

0S20 
0630 
0640 
13550 
0660 
0670 
0680 
0690 
0700 
0710 
0720 



0730 
0740 
0750 

0760 
0770 
0730 



5790 
0890 
0810 
6820 
0830 
0840 
0850 
0860 
0870 

0880 
0890 
0300 
0910 
0920 
0930 
0940 
0950 

msQ 

0370 
0580 
0990 

1000 

1019 
1020 



SPRITECOLOR L8 
I DENT I FV 1.2 
&PRITESIEE 1.0.0 

ENDFOR I 

SPRITECOLOR 5,7 

PENCOLOR 8 

MOVE'PIECES 

DRRW BORDER 

BLfiCK:*9; WHITE:'=0 

POINT 

I : "SPRITECOLLISIONC 1 > TRUE) 
EHDPROC INITORME 
// 
PROC FfiLLIHG' PIECES 

FRLLING 

HOVE 'PIECES 
EHDPROC FflLLIHG'PIECES 
// 
PROC MOVE'PIECES 

FOR 1=1 TO NUM'PIECES DO 

SFRITEPOS I+a.PIECESd.U. 

PIECES<L2) 

ENDPROC MOVE'PIECES 
// 

PROC FALL I NO 
FOR l:=l TO NUM' PIECES DO 
PIECES<Ij2):-I*FflLL'RRTE 
IF PIECES(I,2)<;38 THEN PIECES 
C L2> : =209; PIECESU >V.>- =RND 
(1.270> 
ENDFOR I 
ENDPROC FRLLING 
// 

PROC COLLISION 
WHITE; +SPRITECOLLI SIGN < 1 , FRLSE) 
BLfiCK : +SPRITEC0LLISI0NC3. FRLSE) 
TOP 'OR 'BOTTOM 
FOR 1^=1 TO HUM 'PIECES DO 
IF SPRITECOLLISION( 1+3, FRLSE) 
THEN 

PIECES(M>:=RND< 1,270) 
PIECES a. 2): =200 
END IF 

ENDFOR I 

POINT 

MOVE 'PIECES 

r=SPRITECOLLISION<l.TRLIE) 
ENDPROC COLLISION 
// 
PROC POINT 

PENCOLOR i 

SIR < WHITE. SCORED) 

PLOTTEXT 40.8, "WHITE; "+SCORE* 

PENCOLOR 

STRC BLACK, SCORE*) 



1038 PLOTTEXT £00,8, "BLRCK: "+SCORE$ 
1049 EHDPROC POINT 

1059 // 

1066 PROC STRd.REF SCORE*) CLOSED 
1070 SCORE* :=" "; J: "1000 

1060 FOR K:sl TO 4 DO 

1030 SC0RE*<K):=CHR$(43+I DIV J) 
lies I:*I MOD J; J:=J/i0 
1110 ENDFOR K 
1120 ENDPROC STR 
1130 // 

U40 PROC NEW 'PIECES 
1150 FOR l:=l TO NUM'PIECES DO 
1160 PIECESa,l):=RND(8..280) 
1170 PIECESa,2>:=RNDa0,S0) 
1180 ENDFOR I 
1190 ENDPROC NEW 'PIECES 
1200 // 

1210 PROC TOP'OR'SOTTOM 
1220 // PLRVER WITH MOST POINTS IS ON 
TOP 

1239 IF WHITEC=BLRCK THEN 

1240 Vl:=EOTTOMi V2:=T0P 
1250 ELSE 

1250 Vl:=TOP; V2:=B0TT0N 
1270 ENDIF 

1280 ENDPROC TOP'OR'SOTTOM 

1290 // 

1308 PROC INSTRUCTIONS 

1310 PROE 

1320 PRINT "THE FIGURES RRE MOVED flS 

FOLLOWS : " 

1330 PRINT 

1340 PRINT 

1350 PRINT " THE WHITE PLRVER:" 

1360 PRINT 

1370 PRINT "fi MOVE TO THE LEFT" 

1380 PRINT "S STOP MOVING" 

1390 PRINT "D MOVE TO THE RIGHT" 

1400 PRINT 

1410 PRINT " THE BLACK PLRVER:" 

1420 PRINT 

1430 PRINT ": MOVE TO THE LEFT" 

1440 PRINT "; STOP MOVING" 

1450 PRINT "= MOVE TO THE RIGHT" 

1469 PRINT 

1470 PRINT "Q QUIT" 
1480 PRINT 

1490 PRINT "TRV TO CRTCH PIECES OF 

FRLLING SKV!" 
1500 PRINT "CRTCH THEM OH THE PLATE 

VOUR ELF HOLDS" 
1510 PRINT 

1520 PRINT " STRRT BV RNV KEV:" 
1530 REPEAT 



M POWER/PLAY June/July 1984 



1540 
1550 
1568 
1570 
1530 
1596 

1600 

lSi0 
1620 
1630 
1649 
1653 
1660 
1670 
16S0 
1699 
1709 
1710 
1720 
1730 
1740 
1750 
1760 
1778 
1780 
1790 
1S00 
1819 
iS20 



1840 
1650 
1S60 
1870 
1890 

1830 

1900 
1910 
1920 
1930 
1940 

1950 
1960 
1570 
1S80 
1990 
2900 

£010 

2028 
2030 
2040 
2050 
2060 



UNTIL KEVt<>CHR*(0) 
ENDPROC INSTRUCTIONS 

PROC INIT 

SETGRflPHIC 

HIDETURTLE 

INITGRME 

SPRITECOLOR «,1 

SPRITECOLOR 1.1 

SFRITECOLOR 2.8 

SPRITECOLOR 3.0 

SPRITE3I2E 9.1.1 

SPRITESI2E i.i.i 

SPRITESIiE 2; 1.1 

SPRITESIZE 3.1,1 

IDENTIFY S.9 

IDENTIFV 2.0 

IIiENTIFV 1.1 

iriENTIFV 3.1 

Ii:=7.5; IiELTRl:=D; I3ELTft2:=D 

BOTTOM: =64; TOP ^ =114 

Ki;=120; X2:=120 

Vi;=BOTTnri; V2-=T0P 
ENDPROC INIT 

PROC GET -'lOiT^ MOVE 
CH^ ; =KEVJ 
IF CH$OCHR$(9> THEN 

IF CHf="fl" THEN DELTA 1 

IF CH$="D" 



IF CH$="S" 
IF QH$="-" 
IF CHf-"-" 
IF CH$=";" 
IF CH*^" " 



THEM DELTA 1 
THEN DELTRl 
THEN rELTA2 
THEN DELTR2 
THEN DELTR2 



=~D 
=D 

«0 

=-D 
=D 

=0 



THEN T£Mp:=Vi; VI 



=V2.; VZ^-^TEMP 

IF CH*="Q" OR CH$="@" THEH DONE 
=TRUE 
END IF 
ENDPROC GET'NEXT'MOVE 

PROC DRPU'' BORDER 

NDVETO 0.29 

DRflWTO 0j 199 

DRRWTO 319.199 

DRBWTO 319.29 

DRPUTO d>22 
ENDPROC DRfiW BORDER 
// 
PROC PPOE 

PRINT CHR$<147>. /V'CLEfiR SCREEN 
ENDPROC PRGE 
// 
PROC SET 'DIFFICULTY 

PAGE 



2076 REPEAT 

2880 INPUT "HOW MRNV FfiLLIHG PIECES 

Cl-4): ": NUM'PIECES 
2990 UNTIL NUMTIECES>=1 AND 

NUM'PIECESC=4 
2100 REPEAT 
2110 INPUT "FALLING SPEED CSLOW 1-4 

FAST): ": FALL -'RATE 
2120 UNTIL FALL'RATE>=1 AND FALL' RATE 

<=^4 
2130 ENDPROC SET'DIFFICULTV 
2140 // 

2150 FROC READ ^SPRITES 
2160 PRINT "SETTING UP. SPRITE IMAGES" 
2170 Din It1RGE$ OF 64 

2189 FOR SHAPES :=0 TO 2 DO 

2190 IMAGE* :="" //INIT 
2208 FOR BVTES-1 TO 64 DO 
2216 REPD ITEM 

2226 IMAGE^:-imGEf+CHR$aTEM> 

2230 EHDFOR BVTES 

2240 BEFINE SHAPES. ItWGE$ 

2250 EHDFOR SHAPES 

2260 ELF' IMAGE: 

2270 DATA 0.12.0.0.62.9.0.127.0.0.255. 

123.0.255.. 192.0 
2280 DATA 131.224.0.171.224.0.131.240. 

0*124,-240. 128. 10S.1 12. 4S. 254 
2290 DATA 1^^0.43.255.76.27.57.160.14. 

124*240.4.214.72.1.131.7 
2300 DATR 3.1.135.1.131.7.8.198.0.15. 

239.224. 14. 108. 224. 6J 
2318 CRTCH" plate; 
2320 DATA 0.3.0.0.0.0.9.0.0.0.0.0^0^0^ 

9.0 
2330 DflTR 0,9.0.0.9.0.0.0.252.0.9.0.0. 

0.9.0 

2349 DRTA 0.0,0.0.0.0.0.0.9.0.0.0.'0^0-' 
3.0 

2350 DRTfi 9.9.0.0.9.0.0.0.0.0.0.0'0-'0' 
3.0 

2369 SKV 'PIECE: 

2370 DflTR 43. 0.9. 120.0.0.252.0.0.252. 
9.0.252.0*0.120 

£380 DATA 0.0. 48. 0.0. 0.0. 0.0. 0.0. 0/0' 

0.0.0 
2390 DflTR 0.0.0.0.0.0.e.0.0.0'0.0/0j0^ 

0.0 
2400 DRTfi 0.0.0.8.0.0.0.0.0^0.0>0'0'8' 

0.0 
2410 ENDPROC RERD' SPRITES 
2429 // ^ 
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460 GOTO 120 

500 LS=0:IP SI2E>=TS THEN 

IS^IS+lOrPOTsPOT+l :GOTO 1000 
5 20 PRINT" POT TOO BIG" : POT=PCT+ 1 

:CS=CS+1:IF CS>3 THEN 

D$="OVERPOTTING":GOTO 3000 
530 GOTO 2030 
600 IF POT>0 THEN POKE CH+456,4 

iPOKE SC+455, 160 

jPOKE CH+478,4:POKE SC+478, 

160 
615 IP POT>fl THEN POKE CH+455,4 

:POKE SC+455, 95:POKE CH+457,4 

iPOKE SC+457,105 
620 IF P0T>1 THEN POKE SC+455, 160 

iPOKE SC+457,160 

:POKE SC+477,160 

:POKE CH+477,4 

625 IF P0T>1 THEN POKE SC+479,16fl 
:POKE CH+479,4:POKE SC+454,95 
-.POKE CH+454,4 

626 IF P0T>1 THEN POKE SC+458,105 
iPOKE CH+453,4 

630 IF P0T>2 THEN POKE CH+454,4 

:P0KE SC+454,160 

iPOKE- CH+458,4 rPOKE SC + 468, 

160 
635 IF P0T>2 THEN POKE Cri+476,4 

:POKE SC+476,160 

:POKE CH+480,4:FOKE SC+480, 

160 
640 IF P0T>3 THEN POKE CH+453,4 

:POKE SC+453,160 

:POKE CH+459,4!POKE SC+459, 

160 
650 FOR 1=1 TO LEAFsREAD P 

:POKE SC+P,65:POKE CH+P,5 

:NEXT: RESTORE 
670 PRINT" [SPACE4, DOWN, RVS] 

HIT ANY KEY[RVOFF]" 
675 IF P0T>3 THEN PRINT"LARGEST 

POT" 
680 GET KS:IF K$=""THEN 630 
690 RETURN 
700 IF LOC$="S"THEN 

LEAF=LEAF+INT(RND{1) *3+l) 
7 20 IF LOGS = ■'«" THEN 

LEAF=LEAF+INT(RND(1) *2) 
7 30 IF LOC$="E"THEN 

LEAF=LEAF+INT(HND{1) *2+l) 
740 RETURN 
1000 IF DW<IW AND DF<IP AND 

DL<IL AND SIZE<IG THEN 1030 
1020 GOTO 1040 
1030 GOSUB 7O0:DW=UV» + 1:DF = DF+1 



10 31 
10 3 2 
10 4 



1050 



1060 



1080 



1085 



1090 



1095 
1100 
1105 

in0 

1200 



1210 



1220 



2000 



2020 
2500 



2520 
2530 

2540 



iDL=DL+l:SIZE=SI2E+l 

: PRINT" PLANT GROWING" 

IF LEAF>aL THEN 2500 

GOSUB 600:GOTO 160 

IF DW>=IW THEN PRINT"PLANT 

TOO DRy":LW=LW+l 

:IF LW>3 THEN D$="THIRST" 

:GOTO 3000 

IF DF>=IP THEN PRINT"NEEDS 

FERTILIZER" : LF=LF+1 

;IF LF>3 THEN 0$=" HUNGER" 

:GOTO 300 

IF SIZE>=IS THEN PRINT"POT 

BOUND" :LS=La+l 

:IF LS>3 THEN 

D$="SUFFOCATION" :GOTO 3000 

IF LOC$ = "N*'AND DL> = IL THEN 

PRINT" PLANT GETTING LANKY" 

:D$="TOO LITTLE LIGHT" 

:GOTO 1100 

IF LOCS="E"AND DL>=IL THEN 

PRINT" PLANT IS UNHAPPY" 

:D$="TO0 LITTLE LOVE" 

:GOTO 1100 

IF LOC$ = "S"A.^JD DL> = IL THEN 

PRINT"PLANT GETTING SUNBURN" 

:D$="TOO MUCH HEAT" 

:GOTO 1100 

GOTO 1110 

J=RND(1) *10:IF J<2 THEN 3000 

GOTO 2000 

GOSUB 600: GOTO 160 

DATA 434,412,433,435,390, 

410,414,411,413,368,389,391, 

387,393,388,392,4 32,4 36,4 09, 

415 

DATA 357,369,346,431,437, 
408,416,386,394,366,370,345, 

347.36 5,371,324,34 4,348,4 30, 
438 

DATA 385,395,323,325,302, 

364.37 2,34 3,349,3 22,3 26,280, 
301,303 

GOSUB 6O0:LEAt'=LEAF-l 

IIF LEAF<1 THEN D$="LOSS OF 

LEAVES": GOTO 30 00 

GOTO 160 

PRINT" [CLEAR, DOWN, SPACE 3] 

CONGRATULATIONS! " ," [DOWN 3] 

YOUR PLANT BLOOMED IN"," 

[SPACES] "DAY" DAYS! ! ! " 

FOR 1=1 TO 3000: NEXT 

PRINT" fCLEAR,D0WN,SPACE10, 

GREEN, SHFT A] " 

PRINT" [SPACE9,SHFT A,SHFT B, 
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SHFT A)"," [SPACES, SHFT A, 
RED,SHFT 0, GREEN, SHFr A, 
SHFT N,SHFT A] " , " [SPACE? , 
SHPT A, SHFT M,SHFT A, SHFT B, 
SHFT A,RED,<5HFT Q, GREEN, 
SHFT A] " 

2550 PRINT" [SPACER, SHFT A, RED, 

SHFT 0, GREEN, SHFT A, SHFT M, 
SHFT A, SHFT H,SHFT A, SHFT N] 
*," [SPACES, SHFT A, SHFT M, 
SHFT A, SHFT M,SHFT A, SHFT B, 
SHFT A, RED, SHFT Q, GREEN, 
SHFT A, SHFT N,SHFT A]"," 
tSPACE4,SHFT A, SHFT M, 
SHFT A,RED,SHFT Q, GREEN, 
SHFT A, SHFT M,SHFT A, SHFT 
SHFT A, SHFT N,SHFT A, SHFT 
SHFT A] " 

25G0 PRINT" [SPACER, SHFT A, SHFT M, 
SHFT A, SHPT M,SHFT A, RED, 
SHFT- Q, GREEN, SHFT A, SHFT iM] 
",'•[ SPACES, SHFT A, SHFT M, 
SHFT A, SHFT M,SHFT A, RED, 
SHFT Q, GREEN, SHFT A, SHFT N, 
SHFT A, SHFT N,SHFT A]"," 
[SPACE 4, SHFT A, RED, SHFT Q, 
GREEN, SHFT A, SHFT M,SUFT A, 
SHFT M,SHFT A, SHFT N,SHFT A, 
SHPT N,SHFT A, RED, SHFT Q, 
GREEN, SHFT A)" 

257n PRINT" [SPACED, SHFT A, SHFT M, 
SHFT A, RED, SHFT Q, GREEN, 
SHFT A, SHFT N,SHFT A, SHFT N) 
"," [SPACES, SHFT A, SHFT M, 
SHFT A, SHFT M,SHFT A, SHFT B, 
SHFT A, RED, SHFT Q, GREEN, 
SHFT A, SHFT N,SHFT A]"," 
[SPACE4,SHFT A, RED, SHFT Q, 
GREEN, SHFT A, SHFT M,SHFT A, 
SHFT M,SHFT A, SHFT N,SHFT A, 
SHFT N,SHFT A, RED, SHFT Q, 
GREEN, SHFT A] " 

?.bHn PRINT" [SPACES, BLUE, CMDR *, 

RVS , SPACE 3 , RVOFF , SHFT POUND] 
" , " [ SPACE9 , RVS , SPACE 3 , RVOFF , 
BLACK]" 

2720 PRINT" [DOWN, SPACE3, RVS] 
TO PLAY AGAINIRVOFF] " 
:GDSUB 670:GOTO lOR 

3fJflO PRINT" PLANT DIED FROM",D$ 

3H2n PRINT" [DOWN, SPACE 3, RVS] 
TO PLAY AGAIN[RVOFF] " 
:GaSUB 6e0:GOTO 100 C 




Still the Best! 



Rated THE BEST educational 
program (or ttie VIC 20TM by 
Cnatlvt Computing magazine. 

Commodore 84 vsralon; "This 

Is the best typing tutor we havs 

seen yet; It can get your 

children touch typing In short 

order and bring an old liand up 

to speed, includes excellent 

training modules and an 

arcade type mode to liven 

things up and put some 

pressure on;****+*' INFO-64 

Our customers continue to tell 

us of their success. . . . 

'.'. . delighted with my son's 

progress ... he Is the only 

one In his second grade class 

who touch types at the computer.' 

(58 year old man writes) , , , "great, excellent. To me a source 

ol great learning ... I Just can't express how much I have 

enjoyed Itl" 

In dally use by schoota across the USA. 

"Computer aided Instruction at Its best" Coirnnander magazine 

TYPING TUTOR + WORD INVADERS 

The proven way to learn touch typing. 
COMMODORE 64 Tape $21.95 
COMMODORE 64 Disk $24.95 
VIO20(unexpanded) Tape $21.95 





^^NV^ 



IFR 

{FLIGHT SIMULATOR) 

DISK OR TAPE 
FOR THE 
COMMODORE 64 
$29.95 



CARTRIDGE 
FOR THE VIC 20 
$39.95 
JOYSTICK REQUIRED 



Put yourself In the pilot's seat! A very challenging realistic 
simulation o( instrument flying In a light plane. Take o(f, 
navigate over difficult terrain, and land at one of tt^e 4 airports. 
Artificial horizon, ILS, and other working Instruments on 
screen. Full aircraft features, Healistic aircraft performance- 
stalls(splns, etc. Transpofl yourself to a real-time adventure 
in the sky. Flight tested by professional pilots and judged 
"terrific"! Rated "Excellent" by fylidnite Software Gazette. 

Shipping and handling Si .00 per jUJJBIi 
order, CA residents add 6% tax. i^pP' 

ACADEmV 

SOFTM//4RE 

P.O. Box 6277, San Rafael, CA 94903 (415) 499-0850 

PmgrBmmira: Writ* ta our N«w Program Manager cuncatning 

any •ictptlonil VIC 20TM pr Commodori S^TM g«m« 

or Dthar i>«osi*ni you ha«* <l*v«lop«J. 
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Shutter Bug 

A 3-D maze game for the 
VIC 20 and Commodore 64 

by C. D. Lane 

You just graduated from the Phamous Photographer's 
School and landed a job with the Daily Times (though 
you moonlight for the Nightly Enquirer). Your first as- 
signment is to enter the city's sewer system and photo- 
graph the giant ants reported to have nested there. Your 
assistant stays above ground with a radar unit, feeding 
you position information via radio which you track with 
your map. You are able to see your position and orienta- 
tion, as well as the giant ant's orientation and position 
in the maze of pipes, 

Along with the map, you see the view ahead of you 
in your view finder. When you reach an ant, you will see 
one of four possible views of him in your view finder — 
his head, right or left side, or his tail. Before you can taite 
a picture you must wind your camera (press the space 
bar) else you will take a double exposure, possibly ruin- 
ing a good shot. The Times pays more for better (i.e., 
head) shots. If you photograph the giant ant success- 
fully, he disappears into the pipes and you must find 
him again (remember to wind your camera!). 

There is an added twist to the VIC 20 version in that 
occasionally when you photograph the ant. he will steal 

Implementation Notes 

Map of the "Shutter Bug" program: 

1 Array dimension initialization 

2 Game timer 
3- 8 3D view update 
9-17 Joystick decoding 

18-20 Giant ant motion and orientation 

21-23 Main loop 

24 Function definition 

25 VIC 20 initialization 

26 Commodore 64 initialization 
27-35 Screen and variable initialization 
36-40 Random maze routine 
41-46 More initialization 
47 Random maze location sub-routine 
48-57 Camera " click' ' routine 
58-64 Game end scoring 
65 Data containing giant ant views 



your map! Now you must carefully follow his motions 
and turns in your view finder, following him through the 
maze of pipes. You must successfully photograph him 
again to get your map back (while he is blinded by the 
flash). It's not easy but it can be done. Carefully note 
what view of the ant you see when he disappears, then 
move forward and turn in the same direction if he turned 
or keep moving forward if his tail was the last thing you 
saw. Remember that the ant only turns when he can no 
longer move forward. 

You have 24 frames, or five minutes, whichever comes 
first (usually the five minutes). Scoring is based on what 
shots you managed to get. You lose a slight amount for 
unshot or missed frames as an overhead fee (assistants 
with radar are expensive). However, the Nightly Enquirer 
will pay for your double exposures— but not enough to 
cover costs. The goal of the game is to get the highest 
dollar total you can. 

The game requires a joystick (port two on the 64). 
Movmg the joystick up moves you forward, down moves 
you backward, Moving the stick to the right turns you 
clockwise, left turns you counterclockwise. This may 
seem difficult to use at first but when your map is stolen, 
It is the only kind of movement that makes sense as you 
will not know which way you are facing. 

The maze is generated at random each time you play. 
Besides the maze and view finder, the screen shows the 

(Continued On Page 70) 
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Now Your Commodore 64 
Can Print Like a Prol '' 




Grappler f & 



Printer Interface 
The Revolutionary Printer Interface for the Commodore 64 



TM 



A New Era in 

Commodore Printing Power. 

Grappler CD offers the first complete answer to 

your printer interfacing requirements, witfi many 

powerful capabilities unique in the Commodore 

marketplace. Complete signal translation allows 

many popular name brand printers to operate 

perfectly with the Commodore 64, or to imitate 

Commodore's own printer. Even Commodore's 

graphic character set can be reproduced on 

Epson, Okidata, Star, ProWriter and other popular 

printers. 

Exclusive Grappler CD features provide a variety 

of graphic screen dumps, text screen dumps and 

formatting. No other Commodore interface can 

offer this. 

If you own a Commodore 64 . . . 

If you're serious about quality, trouble free 

printing. . . You need the Grappler CD. 

Contact your nearest Commodore dealer or call 
Orange Micro for a dealer near you. 

CowmoOOf e 64 una t^amfv^/tMi oiiti'^ifi !^Ad*oiiir k\ot C^mmodof ■ E bfClrOn>CS t'mrf^d 



A Uniquely Intelligent Interface: 

• Prints Screen Graphics Without Software 

• Graphics Screen Dump Routines Include 
Rotated, Inversed, Enhanced and Double Sized 
Graphics. 

• Full Code Translation From Commodore's PET 
ASCII to Standard ASCII, the Language of Most 
Printers. 

• Complete Emulation of the Commodore 1525 
Printer for printing of Commodore's Special 
Characters. 

• Dip Switch Printer Selection for Epson, Star, 
Okidata, ProWriter and other popular printers. 

• Conversion Mode for Easy Reading of Special 
Commodore Codes. 

• Text Screen Dump and Formatting Commands 

• 22 Unique Text and Graphics Commands 

iiOfQnge micro 

1400 N. LAKEVIEW AVE., ANAHEIM, CA 92807 U.S.A. 
(714)779-2772 TELEX: 183511CSMA 
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By John Campbel! 

Commodoio SoKwato 



A little tired of juicing up your joy- 
stick? Do you have calluses from 
taking on the Gorfian empire? Then 
prepare yourself for a new and excit- 
ing challenge. Commodore plans to 
release a group of new strategy 
games for the Commodore 64, start- 
ing this summer with its chess pro- 
gram. After examining hoards of 
chess packages for the Commodore 
64 and other microcomputers, Com- 
modore decided to acquire the rights 
to a modified version of the highly 
touted Chess 7.0 from Odesta. Re- 
view^ers agree that the product is 
a state-of-the-art masterpiece. This 
program was chosen because it 
is much more than just another 
chess game. 
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n 

January 
of 1983, 
Commodore 

amiounced the formation of 
a new Software Division 
and named Sig Hartmann 
as President Since that time 
Commodore has emphasized 
the development of quality 
iwftware and has, in fact, 
become the third largest 
producer of software (Wall 
Street Journal, February 23, 
1984). Commodore Software's 
primary goal has been to 
produce a ''complete menu" 
of high quality products at 
affordable prices. One hot 
section of the menu that has 
just started to be filled is that 
of strategy games. 



r 




ANOTHER CHESS GAME 




When it comes right down 
to it, if you are serious 

about chess then you want 
to know if it is a tough 
competitor and if it will 

take three months for the 

computer to make a move. 



Easy to Use. Unlike many other 
chess games, you can begin playing 
this game within minutes of opening 
the package. Simply load and run the 
program and wail for the playing 
board to come up on your screen. 
Since the program is rather exten- 
sive, the loadmg process takes a few 
minutes and this will give you time 
to start reading about the myriad of 
powerful features that are at your 
command. One of the reasons that 
the program is so easy to use is the 
screen layout {see Figure 1). With the 
playing board clearly represented, a 
versatile main menu, a message line 
for prompts and other 
information distinctly 
displayed, you do not 
need to know anything 
about computers (or 
standard chess notation) 
in order to enjoy a good 
game of chess. 

The program begins 
with a demonstration 
of how to move the 
chess pieces and will 
continue until you 
press the fire button 
on the paddle [joysticks 
cannot be used with 
this program) or the 
RETURN key on 
the keyboard. (The 
fire button on the pad- 
dle and the RETURN 
key on the keyboard are basically 
interchangeable for the purposes 
of this game). The game difficulty 
defaults to zero, wluch js a good 
level for familiadzing yourself with 
the product. Making moves is very 
simple and the program will scroll 
through only the moves that are 
legally possible. 

Tutorial. The fact that the game 
is easy to use is a critically important 
element. But the tutorial aspect of 
the program is what really sets tlie 
product apart from the rest. The 
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program has six tutorial chapters 
in addition to the educational 
features in the main program. The 
six chapters are selectable in any 
order, and can even be picked during 
a game in progress if you need 
refreshing. The first three chapters 
are for the beginner, and they 
teach the rules of the game and some 
special situations (e.g., castling, 
en passant). The second three 
chapters are more strategy oriented 
and teach you how to use your 
pieces together in a cohesive 
plan rather than as just a bunch of 
individual pieces. 




The strong points of the tutorial are 
many. First of all, it is not just a text 
description. For example, when it is 
teaching the basic rules of the game 
it demonstrates the rules for each 
piece on the screen via a "movie". 
Another good aspect of the tutorial 
section is that in each chapter simple 
problems are provided to give you 
actual practice in given game situa- 
tions (e.g. , practice getting out 
of check). Finally, the tutorial is 
not aimed at just the novice. For 
example, chapter four demonstrates 
12 different opening strategies and 



highlights the strengths and weak- 
nesses of each. 

Feature-packed. Most chess 

games are designed to handle the 
special moves like castlmg and en 
passant. Most chess games let you 
choose black or white and level of 
difficulty. Most games will also alert 
you to checks (or checkmate). But 
this chess game has numerous other 
valuable features (besides the tutorial 
section) that most chess games don't 
have, including: 

• Advice: you can ask the com- 
puter what your best move would be. 

• Auto: the computer 
will play both sides. 
It can be used at any 
time, even durmg a 
game. Helpful to learn 
some good defensive 
strategies. 

• Inward: showra what 
pieces can attack a given 
chosen square (or piece). 

• Manual: allows 
chess to be a two- 
player game, giving you 
the powers of the tuto- 
rial yet allowing you to 
play a peer rather than 
the computer. 

• Rerun: replays all 
the moves made in 
a game so far, 

• Switch: you can 
switch sides before or during a game, 
and the computer vrill be stuck 

in the situation you were in! 

These are just a few of tlie power- 
ful and unique features found 
in this chess product. But when 
it comes right down to it, if you 
are serious about chess then you 
are not that concerned fibout the 
tutorial capabilities or tiie special 
features. You want to know if it is a 
tough competitor and if it wiE take 
three months for the computer to 
make a move as it goes through 
some endless decision algorithm. 



Difficulty and Speed, piedict- 

ably, the higher the level of difficulty 
chosen, the longer it takes for the 
computer to take its turn. But this 
chess product is surprisingly quick in 
Its reaction time, regardless of the 
level chosen. At level zero, the com- 
puter responds almost Instantane- 
ously. At level five, the average time 
of response I experienced was about 
30 seconds. Even at the most diffi- 
cult level nine, the average response 
time was approximately five minutes. 
This compares favorably with some 
of the very strong chess games avail- 
able today. 



Unlike most microcomputer chess 
games, one notable facet of its com- 
bativeness is its strong end game. 
Just vifhen you think you have 
crushed it, the computer turns the 
game around vifith a flurry of clever 
moves and leaves you devastated. 
Apparently the game lacks the 
ability to become frustrated when 
it is losmg. 

Concluding Notes. Although 

the game is extremely well-done, 
I'm sure some chess buff will think 
of some additional feature that 
would be nice to have. However. 



I couldn't thmk of anything 
that tire program was lacking. 
The real point 1 would like to make 
is that even if you don't love 
chess, you will still enjoy this 
product, 

Chess is the first of a group of 
easy to use strategy products that 
Commodore will introduce this 
summer. They are designed to 
challenge your intellectual concen- 
tration ratlier than your hand-eye 
coordination. If you're looking 
for a product that will entertain as 
well as educate, then Commodore's 
new choss product is tor you. C 
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Figure 1. Screen Layout for Chess 
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CAN VOU SURVIVE 




Sfort with some noturol resources, food and money. Scram- 
ble for the best land grant, then build your net worth by 
developing and exploiting your resources. Dut remember, 
you'll hove to cooperote with your fellow ployers, or nobody 
wins. This game of economics is both fun and educotlonol. 



By Neil Harris 

f''ji;[i5hing Manage! 



M.U.L.E. is an easy to 
leam. fun to play, competitive strat- 
egy game for the Commodore 64. It 
lets up to four players participate in 
the same game but forces them to 
cooperate — if you fight too much, 
no one wins! In short, it is one of the 
best games ever for a computer, 
especiaDy if you're weary of the 
standard "if-it-moves-kill-it" ar- 
cade games. 

It is tempting to call M U.L.E. a 
new kind of game — aldiough it has 
roots in older economic games like 
Hamurabi — because it is the first 



game of the type that actually works. 
M.U.L.E. should do for computer eco- 
nomic strategy games what Pacman 
did for arcade action games, and I'm 
sure that the coming years will pro- 
duce a whole school of games that 
"borrow' ' from the concepts pio- 
neered here. 

First of aE, M, U.L.E. makes eco- 
nomics fun. The computer acts as 
your bookkeeper, which takes all the 
hard work out of the game. This is a 
big improvement over boaid games 
with similar themes, which make the 
players spend more time vrith pencil 



lULUSTHATOR— DAVID CHRISTIANA 



and paper than on the game play it- 
self. You are free to concentrate on 
strategy, which is, after all, why you 
play the game. 
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M.U.LE. should do for 

computer economic 

strategy gomes what 

Poem on did for orcode 

action gomes. 

zoid"), and start expert players with 
very little money (the "humanoid"). 
Like many strategy board games, 
turns are divided into several dif- 
ferent phases. First comes the Sand 
grant, where players get to choose a 
free plot of land from the 44 plots on 
the world. The most interesting part 
of this is that it occurs for all players 
simultaneously — the first player to 
push the button on any plot gets it. 
In the tournament-level game, there 
may be a land auction where cash- 
rich players can bid for extra plots 
of land. 



Yoti can olioosn ony oi Urn eight cimiav 
cers wiUi difhrem abilities The central 
figiiTB is youi choice, shown horn thn 
kont, back and both sides. 

M. U.LE, is always a four-player 
game. If you have fewer players than 
that, the computer can take over the 
ones remaining. Each player starts 
with some natural resources, money, 
food and energy. The object of the 
game is to achieve the largest net 
worth value by the end of the game 
— six turns (at the beginners level) 
or twelve turns (standard or tourna- 
ment levels). Net worth is built up 
by developing the industries of a 
new world, using the resources that 
are placed at random at the start of 
each new game. 

The game includes a way to han- 
dicap players to balance the game 
play: there are eight different vari- 
eties of alien race you can choose 
to be, some with higher or lower 
amounts of money to start, some 
with different characteristics that 
affect their ability to produce certain 
commodities. So, for instance, you 
can let the stupid computer (playing 
the "mechtron") start with more 
money, give a novice human the 
ability to mine ore easier (the "bon- 
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Before the stair of the action,, the game 
shows everyone's coloT. cbaractBT and 
■ yyboaid or iaystJck choices. 



The next phase is called develop- 
ment. One at a time, each player 
builds "factories" to create new 
commodities. To do this, the play- 
ers walk their characters into the 
M.U.L.E. conal, obtaining a new 
M,U.L.E, at the going price. Next 
the M.U.L.E. is outfitted for pro- 
duction by entering one of the four 
stalls. Once outfitting is complete 
(a maddeningly slow process— 
M.U.L.E.S are stubborn!), the players 
walk to their plot and install the 
M.U.L.E,, which becomes a factory 
for that item, 
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MOME V 
l-AMI> 

TOTAL. 

MOMt^ V 
I. AMI> 
GOODS 
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£v !-;., . i,Ai., J gives ilus status summary' 
Goods ate valued at the a verage oi the 
buying and sbHidq price for that round, 
7Vjf? cohny lota! must ro.iah $60,000 for 

anyone to win 

The economic laws of scale are 
important here, as are the basic re- 
sources available on a plot of land. 
Some plots are better at producing 
certain items than others (see Table 
1) The laws of scale add to the basic 
production values of each plot. If you 
have two plots of land next to one 
another producing the same item, 
each plot gets an additional unit of 
production. Also, any three plots you 
own producing the same item give 
each another extra unit. Location of 
spaces and what you develop on 
each (especially in the first few turns) 
are critical to your ability to prosper. 

There are four different commodi- 
ties that help you in different ways. 
Food gives you time to move during 
the development phase of the turn. 
Energy lets you achieve full pro- 
duction when farming or mining. 
Smithore produces more M.U.L.E.s, 
which are actually portable factories. 
Crystite is purely a cash crop, used 
outside the colony for jewelry or 
somesuch. 

Once development is complete, 
the game moves to the exploitation 
phase. This is where the items are 
actually produced on the land. Items 
appear as rectangular dots on each 



plot. Certain events affect the levels 
of production, like earthquakes, 
which reduce mining by half, pirates 
who steal all the crystite, etc. 

Next come the auctions. This is 
the heart of the game. Players can 
buy or sell any of the commodities, 
whose minimum prices are set by the 
laws of supply and demand. If there's 
a shortage of an item, the price will 
be high. The exception to this is 
crystite, which varies between $48 
and $148 per unit randomly. It is to 
the advantage of the players to cor- 
ner the market in an item (usually 
smithore) and let the price rise dra- 
matically before selling. The only 
problem is that shortages slow down 
the growth of the entire colony, so 
you must cooperate sooner or later. 

One nice twist to the auctions is 
the possibility of collusion between 
two players. Rather than let the price 
be determined by competitive bid- 
ding, a buyer and a seller can agree 
on a price and exclude anyone else. 
This lets the underdogs catch up and 
prevents the leader from gaming too 
great an advantage. 




till 1. 1 • u« c;nV'ftT3:Tt'- 



The bonzoid had picked up a M. U.LE. 
from Che canal at the lower right, then 
outfitted it with ciystite from the upper 
light area. Wow the M.U.l.E. is ted to a 
plot of land to start producina 
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After the auctions, the computer 
figures out each player's net worth 
and shows the four players ranked 
from top to bottom, with totals for the 
colony. By the end of the game you 
must reach $60,000 (tournament 
level) for anyone to win. Otherwise 
you all live^but poorly, in miseryl 
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Each ,'ectangte tn the lov/erlett ot the 
plot is a onit of production. Baiiciom 

i;voii'Js j'.'n»"/ire in store" hUqn tho supply 

I haven't mentioned some of the 
events in a game of M.U.L.E., like the 
random events affecting players be- 
fore their development phases, but 
you get the idea that each game of 
M.U.L.E, is a diverse and entertain- 
ing experience. Don't let aU the detaU 
give you the idea that it is compli- 
cated, because it's easier than it 
sounds. A full tournament-level game 
takes only an hour to play. I usually 
get three games into my weekly 
session with my buddies Frank and 
Kevin (I promised to mention them 
as long as they keep letting me win). 

There ate many other nice features 
in M.U.L.E. The sound effects, espe- 
cially the boppy little theme song, are 
professional and not irritating — you'll 
find that the sounds help you play 



Losing all your food due 

to Q rondom disaster 

early in the gome will 

just about wipe out your 

chances for success 

the game. The graphics are ade- 
quate, if not spectacular, and the 
animation is very cute. The graphic 
system for auctions is perfect, and 
the mechanics for four players using 
two joysticks is well thought out, 

The documentation and packaging 
for this game is a joy to behold. It is 
- the most complete job of document- 
ing a game I've ever seen. While the 
creators don't give the details on 
exactly how the mechanics of supply 
and demand are dealt with by the 
program (which would cause you to 
play using a calculator, which they 
were probably trying to avoid), de- 
tails on the subtle aspects of the 
game are revealed. Nothing is left to 
chance. That's especially important 
in a strategy game like M U.L.B. 

If I had to I could pick out some 
things I didn't like about this game- 
losing all your food due to a ran- 
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dom disaster early in the game will 
just about wipe out your chances for 
success — but it keeps me and my 
friends entertained for more hours 
than any computer game yet, in- 
cluding adventure games (and I've 
spent quite a while in those colossal 
caves, believe me). I expect to keep 
on enjoying this until someone man- 
ages to top it — and they've got some 
work to do 1 

By the w/ay, this game is educa- 
tional as well as fun. It gives you the 
clearest picture of the workings of 
economics available outside the 
business world. After mastering 
M.U.L.E.. you'll have a far better un- 
derstanding of the workings of the 
real-world marketplace. M.U.L.E. 
would be helpful for social studies 
classrooms, as well. 

M-U.L.E. is available on diskette 
for the Commodore 64 from Elec- 
tronic Arts, for around S40. At last, 
a computer game worth buying a 
computer fori 

Table 1: 

Production Abilities for Plots 

of Land 

Typaolplot Food Emiyf Smltliore 



River 

Vacant 

Mountain 



not allowed 
2, 3, ot 4 



Hints for Better 

M.U.L.E. 

Play 

I.Onlyplay the tournament level 
game. Supply and demand aren't 
fully implemented in the other levels, 
and you'li jusi get contused trying to 
play what amounts to completely dif- 
ferent games. The tournament game 
is the most fun, anyway. 

2. The computer is a stupid player. 

It won't hoard precious Items when it 
should. It also doesn't take advantage 
of the assaying process. It can find 
good crystlte deposits but lets you 
exploit them. Watch the computer 
during the development phase I 

3. Stop assaying after turn six. It 
wastes time. Just develop all the 
crystlte you can. Even weak crystlte 
plots will produce because of the 
economies of scale — and they'll help 
your good plots produce even more. 

4. Don't sell energy unless you're 
desperate for cash! Each unit of en- 
ergy you sell is worth hundreds of 
dollars in production to your oppo- 
nents. Energy spoils slowly (one out 
of four spoils, rounded down), 

5. Watch where you enter the town 
during development, If you enter from 
the sides you'll appear in the sides. 
but enter from the top or bottom 
edges and you'll appear in the mid- 
dle. This can save you precious time, 

6. Plan your production so that you 
are only mining by turn ten. You can 
usually buy energy and you won't 
need food by then. Switch river plots 
to energy and all others to crystlte. C 
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For bridge players only 



Whether you're an expert or a 

novice, you'll enjoy Bridge 

4M from Artworx for the 

Commodore 64. It's pure 

contract bridge that lets your 
computer be a partner, 
competitor and/or tutor. 



By Joe Marlino 

CominDdom Educaiion Departmeni 



Having played bridge 
through my childhood 
with my family, I found 
Bridge 4.0 by Artworx 
a challenge. It is an 
excellent way to leain to play bridge. 
Although it is geared for ati experi- 
enced bridge player, it may be mod- 
ified for the beginner. The novice 
should equip liimself with a 3 x 5 
card on which he has written the 
basics of the Goren Point Count 
System. The new bridge player may 
sit at his computer to play with three 
silent companions. The player has a 
computer partner and plays against 
two computer opponents. This is a 
much greater challenge than reading 
and studying the bndge hands pub- 
lished in the daily newspapers. There 
all four hands are exposed. It is a rare 
individual who can study his^er hand 
without looking at the other three. 

The computer shuffles, deals and 
sorts the cards. The hand of the 
dealer — usually South — -is revealed 
on the monitor. The player may study 
his hand at his leisure. Alter South 
bids, West bids, followed by North, 
and the bidding returns to the open- 
ing bidder, South. The bidding does 
not proceed until the player strikes 
the return key after each bid. The 
player may consider indefinitely 
West's bid. Also he may take his time 
in pondering what his partner's re- 
sponse signifies. 

As the bidding proceeds a record 
of its sequence is kept on the mon- 
itor. There is no need to ask meekly 
for review of the bidding. After the 
contract is completed, the dum- 
my's hand appears on the monitor. 



West leads and the game proceeds. 
As the tricks are gathered in, a 
record is kept on the top of the 
screen as to the number of tricks 
won by N/S and E/W, When the 
hand is completed the score is 
tallied and recorded on the monitor. 
The score returns to zero after a rub- 
ber is completed. 

Another excellent teaching/learn- 
ing device offered by Bridge 4.0 is 
that the player is given the options of 
reviewing the hand and/or replaying 
it. Playing and studying the limitless 
number of hands offered by Bridge 
4.0 will help the bridge novice avoid 
some of the embarrassment often 
encountered by newcomers at the 
bridge table. "One spade," "One 
club," does not cause a nervous 
apology from your partner nor an 
annoyed glance from your oppo- 
nents. The monitor merely records, 
"Error, bid again." 

Bridge 4.0 is pure contract bridge. 
It is not a diluted version of the game 
in which you are presented with 
hands which have already been par- 
tially or completely bid. Nor do you 
have modification.^ of the rules which 
make it only i.i \vM.t\ ;;ubHi.ituto (oi tlie 




game of bridge. Often in learning any 
game a player is limited by the play- 
ing ability of his opponents and^or 
partner. Bridge 4 consistently pro- 
vides realistic bidding and skillful 
playing of the hands. 

The viewer has the option of 
changing the screen, border and text 
colors by using the function keys on 
the Commodore 64. liowever, all card 
suits are in the text color. An obvious 
use of the Commodore 64 's color 
graphics would be to display the 
heart and diamond suits in red and 
the spade and club suits in black. 
Another use of Commodore graphics 
would be to display the entire card. 
Bridge 4.0 does not take advantage of 
Commodore 64's music and graphics 
capabilities. However, in a strategy 
game such as bridge these features 
are not needed to attract and main- 
tain interest in the game. 

The instructions for Bridge 4.0 
should include a pamphlet or tear-out 
card containing the Goren Point 
Count System and the basic rules of 
the game to aid the beginner. A list of 
bridge books could also be included 
in theinstiuctions. 

Bridge 4.0 is a challenge for bridge 
players at every level of the game 
from the beginner to the expert. The 
expert may return to a particular deal 
to test a different sequence of bid- 
ding or another game strategy. Also 
the computer game is an excellent 
way for partners to develop their bid- 
ding game and to discuss their 
methods of play. A lively discussion 
over the many hands available can 
result only in much better play at the 
bridge table. C 



Suicide Mission on the 

iaJSSL\N F1U>NT 



by Jim Gracely 

TfctinicalEdiiOT 



Relive the 1943 German offensive into Russia with Panzer-JAGD from Avalon-Hill 
Microcomputer Games. Chances are you vtfon't make it back, but you've got to give it 
your best. 



As games like Archon and 
M.U.L.E. propel us far into the future 
to tangle with the problems and 
monsters of that age. Panzer-JAGD 
tiirows us backwards to a time al- 
ready history. Rather than postulate 
on the "what if's" of a time to come, 
we can play with the factors of the 
"what was" in a time past, 

The year is 1943. You have under 
your direct command the left flank of 



the German front line offensive. You 
have at your command 12 platoons 
of the new Panther tanks (PzKw VD), 
four platoons of Panzers (PzKw 111) 
and nine mfantry platoons. You have 
been maintaining your position on 
the Russian front awaitmg hjither 
orders when the command arrives 
ordering you to create a diversion 
from the main defensive. Your job is 
to advance your flank as far as possi- 
ble into enemy territory, Odds are 
that it is a suicide mission and your 
only reward will be to persevere as 
long as possible. 

Such is the scenario as you sit 
down to play a game of Panzer/ 
JAGD from Avalon-Hill. This game 



is classed as a World War II tactical 
combat game. From what 1 can tell 
this means that everythmg is "by the 
book". The strengths, limitations and 
movements of each piece are based 
on actual data. The equipment that 
is used is also based on what was 
actually used by the Germans and 
Russians. Tliere are no animate dead 
tank spells and no tank trolls hidmg 
in the rivers. 

This is a strategic game between 
the Germans and the Russians, or 
more immediately, between you and 
the computer. You have control over / 
the motion of your platoons and the 
computer has control over its pla- 
toons. The action of the game is di- 
vided into SIX phases. The first three , 
phases allow you to make decisions 
on moves and targets and they are 
executed during the second tfiree. 




// 



// 
// 





PIIASK 2: 

Direct Fire Orders 

During this phase you can select 
any visible enemy platoons as tar- 
gets. If one of your platoons is hidden 
in trees and you decide to use it to 
file at an enemy target it will become 
visible. This is important to remem- 
ber because once a platoon is visible, 
the computer can take pretty good 
guesses at where you might be if 
you suddenly disappear again. 



PIlASli! 1: 

Artillery Fire Orders 

You have two batteries of artillery 
under your command. They are not 
represented on the screen nor can 
they be attacked. They are used to 
fire against either suspected or actual 
enemy positions. Tliis is different than 
the direct- fire phase in that you can 
fire upon a non -visible enemy. The 
two batteries are only positioned dur- 
ing this phase. 

If you are playing the game, keep in 
mind that the actual execution of this 
fire is during the following phase. Be 
sure you aren't aiming at a location 
you are about to move one of your 
platoons into! 




PIIASK :i: 

Move Orders 

If you are going to change the po- 
sitions of any (or ail) of your platoons, 
this is where to do it. Each of the 
three types of platoons have different 
limitations on motion. The Panzer 
can travel the greatest distance in 
any single move {four blocks). The 
Panthers can move three blocks per 
move and the infantry platoons can 
move two blocks. You can't move, 
however, if you execute fire orders 
this round. 

There are obstacles on the board 
which present various problems. 
There are dense forest areas that the 
tanks cannot travel through. There is 
usually one stream on every screen. 
The stream will end a move by any 
platoon but will allow it to continue 
in the next move. 




ILLUSTKATOR— eOB NEUMANM 
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Execute Artillery 
Fire Orders 

This occurs when the two bat- 
teries you positioned are fired. Dur- 
ing the first round of the game there 
is no action here. If an enemy platoon 
was hidden and you fired on its posi- 
tion, it will become visible briefly. If 
you hit a location that one of your 
own platoons is in, well, war is heck! 



^i. 



y^ 




V\\\m 5: 

Execute Direct 
Fire Orders 

This is when any fire on visible 
targets is made. If an enemy fires on 
one of your visible platoons, it will 
become visible. The manual does 
not specify what the firing order is 
for any combinations of encounters. 
This means that if you are visible and 
gave an order to fire on a visible artil- 
platoon, it may not be executed 
, because two hidden enemy tank 

^ ^j$i-platoons could fire on and destroy 
you first. 



PllAJSK 0: 

Execute Move Orders 

Any moves you entered will be 
made now, to the extent that they 
ate possible. Besides the limitations 
mentioned above, if you move into a 
space adjacent to an enemy platoon, 
your move ends and both platoons 
become visible. 

That's about the way the game pro- 
gresses. You can use up to 20 rounds 
to capture any one field of battle. You 
do so by either destroying all enemy 
platoons in that field (they're ac- 
counted for at the top of the screen) 
or occupying the town and chasing 
all enemy platoons into retreat and 
off the screen. The first method is 
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really preferable because all platoons 
you allow to retreat will be added to 
the platoons on the next battlefield. 

This is not a game to sit down and 
play for ten minutes while your eggs 
are boiling. A game played to the end 
(until you run out of platoons) can 
take many hours to play. By my third 
complete game 1 was getting pretty /, 




■■-Vim^^.'-f- ■/■ 
good at the strategies and it went on 
for about four houis. Of course, each 
time you play, the game lasts longer. 

The real enjoyment of a game like 
this is realizing that there actually are 
strategies to use (both good ones and 
bad ones). Once you pick a strategy 
you can play it out as long as you 
like. This is a game of thinking rather 
than joystick agility. Between rounds 
there is no time limit and you can 
stop and have a sandwich, take a nap 
or just stare at the screen looking for 
a new offensive. 

I am sure that there are those who 
feel a game without arcade action is 
like a day without sunshme; but 
sometimes you can have a nice day 
out in the rain. C 




C-'-tf— 











^^■'^ 



J^^M- 



^^ 





o Ad^sriture in iWTor 



Descend into the labyrinth once ogoin uiith our hero, 
Thrash, to fight dragons, trolls, ogres and vampires— 
and collect treasure chests Full of gold and jewels. It 
talies strategy and luck to survive the hoi Is of Telengard. 
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By Cyndie Merten with Bill "Thrash" Hindorff ,, 




ne inevitably begins an 
adventure v/ith Thrash 
,/ soraevifhat in the dark. In 
this case, the darkness is 
real and terrifying. We are about to 
venture deep into the uncharted 
dungeons of Telengaid. 
The adventure begins by booting 



the Telengard disk from Avnlon-Hi!l I^^^^^ 
Microcomputer Games, We choose to ■■■■'• 
become Thrash, a character who has 
been here before, and knows his way. 
His experience will be invaluable 
in pursuing the unknown treasures 
of Telengard. and in conquering the 
evi! monsters who lurk there. 
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; , ■; - : , ;;■; 6 begin at the bottom 
' ■ ! :•' ! of a long staircase, with 

hght (and civilization?) 
above. Thrash, never 
known to choose the easy way out, 
decides not to rise up, but rather 
to enter the dungeons. Suddenly, 
an ogre with level-four experience 
traipses in. "This ogre has been 
around awhile", says Thrash. We 
choose to fight (rather than evade or 
cast a speO). The outcome is victory; 
not a surprise to Thrash, Thrash 
gains some esqserience, but not 
much compared to his total. The re- 
fuse left behind by the ogre is worth 
one gold piece. This is a poor show- 
ing, but not bad for refuse, according 
to Thrash. 

Traveling east one square, Thrash 
comes across a giant (level two) and 
gains 320 experience points by beat- 
ing him up. While Thrash is stand- 
ing there, a level- one elf appears. 
Thrash's body appeals to him, and 
the elf heals Thrash to his full strength . 
A level- one vampire comes along. 
Thrash casts a level-two spell and 
ensnares him in a web. Thrash pro- 
ceeds to terminate him and receives 
180 experience points. 

Proceeding north and west, Thrash 
comes across a level-tfiree ore, which 
he fights and kills for 180 experience 
points. Going west again reveals a 
level-four ogre, which he kills. The 
ogre leaves behind a potion of 
strength, which Thrash grabs. 

Thrash continues west and finds 
himself at a pit. Knowing the danger 
and risk involved in proceeding 
downward, Thrash will not risk our 



lives by doing so. "It is too difficult to 
get back out; we might not make it," 
he explains. We continue west to 
discover a large gray misty cube. 
We walk into it. It is a transporter to 
levels one through 50. Thrash hits 
one to try to stay at level one. 

Alas, we have been teleported 
downward. Thrash knows because 
we encounter a level-24 demon (rarely 
seen near the surface). Thrash casts 
a level-six prismatic wall speO, ban- 
ishing the demon and temporarily 
rendermgussafe. 

Ahead we see a jewel-encrusted 
throne emitting an eerie time. A 
level- 13 dragon appears. It repeatedly 
fries us with its fiery breath. We are 
damaged for 345, then 56. then 61 hit 
points. Finally, Thrash casts an ice 
storm spell to freeze the dragon. It 
dies. Saved again by Thrash's magic! 
Reading the runes mcreases Thrash's 
dexterity by one point. Sitting in the 
throne teleports us to another floor. 

A level-38 giant appears. We must 
be deep inside the dungeon now! 
Thrash fights the giant twice to no 
avail. He casts a power word kill spell 
which is ineffective. But a plague 
spell finishes the giant off. 
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We head north and outfight a level- 
nine koboid. A mysterious elevator 
takes us up a floor. We come across 
a level- 20 ogre, which Thrash fights 
and kills. 

Thrash is tired from the fight. So 
many foes we have encounteied 
this day. He drinks a healing potion 
recovered from an earlier fight. Now, 
he is ready to continue to guide me 
through the maze. He warns that we 
may be stuck deep in the dungeon 
for some time. 

We come across a holy altar. A 
level-one vampire appears and is dis- 
patched. A level-nine zombie is also 
dispatched, leaving behind a scroll 
of rescue. "This wiU allow us to leave 
when you are too tired to continue", 
Thrash informs me. Donating to the 
altar results in a hearty "Thank you", 
but no more. 

Leaving the altar, we encounter a 
level-31 elf who restores the popular 
Thrash's body to full strength. Enter- 
ing an elevator, we again rise a level. 

"I think I grow too weary to con- 
tinue", I say. "I still have not shown 
you a box", laments Thrash. A box 
has four buttons which, when 
pressed in the right order, open the 
box to reveal treasure. But, when the 
buttons are hit in the wrong order, 
the box zaps you with electricity. 

"I beg of you to use the scroll of res- 
cue", I say. But Thtash is unwilling. 
"It should only be used in an emer- 
gency. We wiU lose all out treasures." 

Continuing to wander, we come 
across a box, at last. Thrash pushes ,. , 
the red button. "That was right". >^ 
Again the ted button. "That was ' '' 



tight". Then gteen. ZAP'! electricity 
shocks Thrash. Undaunted, he pro- 
ceeds to try more and more combi- 
nations. Finally it opens, revealing 
jewels worth 483,455 gold pieces, 
"That's why boxes aie so good! " 
he says. 

As we proceed we find a treasure 
chest with 108,453 gold pieces. Then, 
we come across a fountain with red 
water of which Thrash will not drink. 
But as we wait, the water clears, and 
drinking it heals ten hit points, 

I have grown weary and Thtash 
agrees to try teleporting us out even 
though we may end up deeper in the 
maze. We teleport up a level. Tele- 
porting again leaves our positiori un- 
changed. "We may be on level one". 
Thrash says hopefully. But, no, a 
level-14 dragon appears and begins 
breathing fire unmercifully. That 
does it. The tour is over. Thtash puDs 
out the scroll of rescue and 

POOF! 
we are at the bottom of the steps. Our 
gold is gone, but the magic items re- 
main. Thrash leads us to the Worthy 
Meade Inn fot some rest, 

V ^elengaid is one of the deepest 
; ; ; and involved dungeons ever 
■:i encountered by Thrash. Hours of 
excitement and adventure await the 
fearless, The explorer may save his or 
her game at any point to continue 
another day. All in all, Telengard is a 
well-done graphic adventure which 
anyone would be proud to include in 
their program library. C 
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By Eric and Tom Saberhagen 
With Introduction By Betsy Byrne 

Associate Edilot 




MAGIC & 
MOHSTERS 

The game that 
defies description. 
Is it chess? Is it an 
arcade game? Is 
it a fantasy role 
playing game? 
And can you 
ever win?? Only 
the peo|3le at 
Electronic Arts 
know for sure, 

■ Have you ever 
speciilated what it would be like to 
be part of a "living chess game", or 
even better, a participant not only 
alive but possessing magical pow- 
ers? Then Arcbon , from Electronic 
Arts may be just your cup of tea. It is 
easier to describe Aichon by telling 
you the type of game it isn't, since 
Free Fall Associates and Electronic 
Arts seem to have created a unique 
game — one that will not fit comfort- 
ably into any known genre of gaming. 

Jon Freeman, a member of the 
Free Fall Associates design team 
that created Archon , has the best sell- 
ing Temple ofApshai included in his 
impressive list of credits. In spite of 
its creator's background, however, 
Archon is not a fantasy role playmg 
game or a simulation- — although it 
certainly contains elements of each 
genre, and goes a long way toward 
satisfying the cravings of dyed-in- 
the-wool fantasy addicts. 
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Freeman is also known as an ex- 
pert on board games, and is the au- 
thor of The Playboy Winner's Guide 
to Bomd Games. You will find that 
Archon is more than a computer- 
style translation from a board — yet 
it contains elements of this time- 
honored geme as well Possibly the 
best selling category of computer 
game is the arcade- style action 
game, and Aicbon's three designers 
drew liberally from this genre — yet 
if hand-eye coordination is your only 
skill, Archon will suroly defeat you. 
Strategy and tactics are important 
elements of Archon — to win you 
must become familiar with the 
strengths and weakness of each 
playing piece — but, of course, 
Archon is unlike any strategy 
game you have ever played. You 
get the idea. Archon doesn't defy 
description — just categorization. 

Is Archon truly best described as 
a livmg chess game"? There is no 
question that Freeman, Anne West- 
fall and Paul Reiche III drew on this 
idea when they began work on the 
game — it says so in the documenta- 
tion that comes in the package. The 
idea for Archon is supposed to have 
come from Freeman's participation 
as Kmg's Pawn in a game in which 
people became living chess pieces, 
fighting it out with other "chess- 
men" who invaded their board posi- 
tions. Like the three dimensional 
holographic chess pieces in the 
movies Futureworld and Westworld, 
Freeman and his fellow pavwis were 
commanded by players stationed 
well above the field of action, on a 
California hillside. 

The first playing screen of Archon 
looks like a conventional chess board 
at first glance — but a closer look at 
the icons occupying the squares 
gives the first clue that all may not be 
quite as mundane as the landscape 
would lead one to believe, No tame 
little pawns or wily bishops on this 
board! Instead the stage is set for 




y 



combat 
between the 
forces of Light 
and Darkness, 
Good and Evil, 
the powerful 
archetypical images 
drawn from our 
shared collective i^ 

unconscious. The 
icons themselves are 
suspiciously close to the stuff that 
dreams are made of- — or in the case 
of those on the side of the Dark — the 
cast of nightmares. Unicorns and 
TioUs, Mages and Evil Wizards, they 
all ride to battle at your command. 
Their weapons range from swords 
and spells to eye-beams and ele- 
mentals. The players are moved first 
on the playing board in an attempt 
to capture the five power points on 
which they become invulnerable to 
all magic. Moving your piece to a 
square occupied by an opposing icon 
is interpreted as a challenge to bat- 
tle: the scene zooms in to become a 
battlefield where you struggle to gain 
the advantage over your adversary, 
using the special characteristics of 
the hero or monster you command. 
You can choose to fight on the side 
of Light, or if you are feeling nasty, 
championing the Darkness may bet- 
ter suit your mood. Two players may 
compete, or the computer will agre<3 
to control the opposing force. Aichon 
is probably not what most of us 
would imagine a living chess game 
to be like, but it seems to strike a 
chord in the depths of the least imag- 
inative computer enthusiast, and for 
dreamers and idealists it will be an 
experience unparalleled in our mun- 
dane world of Pawns and Presidents. 
We asked Eric and Tom Saberhagen 
to venture into Archon 's universe 
and report to us on their experi- 
ences there. The two teenagers are 
tournament-class chess players and 
masters of both fantasy role playing 
games and strategy and tactics-type 
computer simulation games, Tom 



and Eric frequently review games 
for^-Power magazine, and have 
a well founded reputation as 
,\ computer "whiz kids", 
s 'i The boys' father is a well 
f'^K known science fiction 

\f jA I author, and their mother 
designs and produces 
'computer games based on the stories 
of science fiction writers. After several 
weeks with Archon, Eric and Tom 
(looking worn and disheveled) returned 
from their mission and delivereci the 
following report. 

The 

Game 

Examined 

If you have ever wanted to be the 
general of an army of fantastic mon- 
sters, controlling them in battles to 
the death, you may be able to live 
out your fantasy with Archon. But 
take heed — Archon is not recom- 
mended for the faint of heart — dan- 
ger and sorcery lurk here to trap the 
unwary commander. Your icons, 
computer simulations of creatures 
C'jmpiled from ancient bestiaries, 
fairytales and worse, will die messily 
and often as you strive to master this 
new game from Electronic Arts. 

Archon may look like chess the 
first time you see the board, but try- 
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ing 10 capiure an enemy piece wi]i 
convince you otherwise. Someone 
has said, "There is no such thing as a 
free lunch." This old saw proves true 
in Aichon, for you must fight for your 
lunch of trolls, dragon and other pop- 
ular lunch meats. Monsters are not 
known for gourmet cooking, and if 
your monster, controlled by you with 
a joystick, is not fast and aggressive 
in the combat arena, he may wind up 
on some other monster's menu. Com- 
bat arena? Oh yes, when you attack 
an enemy beastie, the disputed 
square expands to till the entire 
screen. It is in this arena that the 
outcome of the game is decided. 
It you can consistently win here, 
your victory is almost secured. 

Filling the arena are many shrubs, 
planted by a deranged shrubber. 
These shrubs are on the disturbed 
side themselves, and they keep 
changing color These form obsta- 
cles, which your monster must 
shoot and maneuver around. 
Successfully attacking 
a monster detracts from 
its lifespan, which 
is shown at one side 
of the screen. Reducing 
a monster's lifespan to 
zero kills it. and the victorious 
piece may claim the square. 

There are two ways to win the 
game. First, all of the enemy's icons 
(better known as monsters) can be 
destroyed or imprisoned by magic, 
Second, all of the five "power points" 
can be occupied. "Power points" are 
small flashing centers where an icon 
is protected from all magic. 

Magic can be cast only by the Dark 
Side's Sorceress or the Light Side's 
Wizard. There are seven spells that 
each magician can cast once. These 
spells range from summoning ele- 
mentals to healing icons to impris- 
oning pieces. 

Using icons to their full potential 
is important in Aicbon. If you learn 



how to use a knight, you might have 
a chance at killing a troll with it. And 
if you learn how to use a unicorn you 
can beat almost anything with it. If 
you leatn to use a Dark Side goblin, 
you can kill the most potent foes 
with it. 

One more thing about playing. 
There are neutral spaces on the 
board which are not light or dark, 
but change in color, depending on 
the stage of the Luminosity Cycle. 
Tho pattern of the Luminosity Cycle 
goes something like this: black-dark- 
barely dark-barely light-light-v/hite- 
and then backwards the same way. 

Aichon is a fun game, 
which can 



be played by either one or two play- 
ers, but if you want to play with two 
players, you had better have two joy- 
sticks. If you don't want to play with 
two players, then be prepared for a 
tough game against the computer. 

It is a good arcade-style game 
with strategy in it, too. Still, even if 
you don't like strategy, just play ex- 
tremely aggressively, and you will 
have a good time. (Don't expect to 
beat the computer, though.) 

Overall, this is a good game wii t 
few flaws. (Actually, the 
only major flaw we found 
was that the disk took 
about five minutes 
to load.) C 
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That's why we only sell and support Commodore 64 and Vic 20 
computers!! We have • the best prices • over 1000 programs • 500 
J^ accessories • absolutely the best service • one day express mail 
^ delivery • immediate replacement warranty • 15 day free trial • pro- 



gramming knowledge • technical knowledge • we are the only one 
in the U.S.A. with complete support for Commodore 64 and Vic 20 
computers!! 



PROTECTO ENTERPRIZES Box 550, Barrlngton. IL 60010 

SEND IN THIS COUPON TODA V FOR A FREE CATALOG AND OUR SPECIAL 
"BUY MORE—SAVE MORE COUPON" 
(Save up to $500 on software and accessories} 

Name .^ __^___ 

Address 



City 



— _ State 



Zip Code. 



No One! But No One! Can Compare 



TO 



PROTECTO ENTERPRIZES 

TO ORDER WRITE OR CALL: PROTECTO ENTERPRIZES, BOX 550. BARRINGTON, IL 60010 




Call 312/ 382-5244 

8 to 5 Weekdays 9-12 Saturdays 
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(See Next 1 1 Pages) 
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80 COLUMN PRINTER SALE— $149.00* 



COMSTART/F 

Tractor 
Friction 
Printer 



•kfc 



COM-STAR 



15 Day Free Trial -180 Day Immediate Repiacement Warranty 



• Lowtst Priced, B«st Quality, Tractor-Friction Printars In tha U.S.A. 

• Fast eO-120-160Charactars Par Second • 40.46.66,80,96, 132 Charactars Par Line Spacing 

• Word Processing • Print Labels, Letters, Qraptis and Tables • List Your Programs 

• Print Out Data from Modem Services • "Ttie Most Important Accessory for Your Computer" 



*STX-80 COLUMN 

PRINTER— $149.00 

prints lull 80 columns. Super silent 
operation, 60 CPS, prints Hiresolution 
graphics and block graphics, expanded 
chiaracter set, exceptionally clear 
characters, fantastic print quality, uses 
inexpensive thermal paper! Best thermal 
printer in the U.S.A.! (Centronics Parallel 
Interface). 

**DELUXE COMSTAR T/F 
80 CPS PRINTER— $199.00 

The COMSTAR T^F (Tractor Friction) 
PRINTER is exceptionally versatile. It 
prints BYj" x 11" standard size single 
sheet stationary or continuous feed com- 
puter paper. Bi-directional, impact dot 
matrix, 80 CPS, 224 characters, (Cen- 
tronics Parallel Interlace). 

Premium Quality— 120 GPS 

COMSTAR T/F SUPER-10X 

PRINTER— $289.00 

COMSTAR T(F (Tractor Friction) SUPER- 
10X PRINTER gives yoj all the features 
of the COfJSTAR T/F PRINTER plus a 
10" carriage, 120 CPS, 9x9 dot matrix 
with double strike capability for 18 x 16 
dot matrix (near letter quality), high 
resolution bit image (120 x 144 dot 
matrix), underlining, back spacing, left 
and right margin settings, true lower 
decenders with super and subscripts, 
prints standard, italic, block graphics 



and special characters, plus 2K o) user 
definable characters! The COMSTAR TIF 
SUPER-10X PRINTER was Rated No 1 by 
"Popular Science Magazine " II gives you 
pnnl quality and features found on 
printers costing twice as much!! (Cen- 
tronics Parallel Interface) (Better than Ep- 
son FX 80) 

Premium Quality— 120 CPS 

COMSTAR T/F SUPER-15'A" 

PRINTER— $379.00 

COrwISTAR T/F SUPER 15'/;" PRINTER 
has all the features of the COMSTAR T/F 
SUPER-10X PRINTER plus a 15V,' car- 
riage and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson FX 
100). 

Superior Quality 

SUPER HIGH SPEED— 160 CPS 

COMSTAR T/F 10" 

PRINTER— S429.00 

SUPER HIGH SPEED COMSTAR JIf 
(Tractor Friction) PRINTER has all the 
features of the COMSTAR SUPER-10X 
PRINTER plus SUPER HIGH SPEED 
PRINTING— 160 CPS, 100% duty cycle, 
8K buffer, diverse character fonts, 
special symbols and true decenders, ver- 
tical and horizontal tabs. RED HOT 
BUSINESS PRINTER at an unbelievable 
low price!! (Serial or Centronics Parallel 
Interface) 

I 



Add S17.50 for shipping, handling and insuiance. WE DO NOT EXPORT 
TO OTHER COUNTRIES EXCEPT CANADA 



Superior Quality 

SUPER HIGH SPEED— 160 CPS 

COMSTAR T/F 15'^" 

PRINTER-S529.00 

SUPER HIGH SPEED COMSTAR T/F 
15'/!" PRINTER has all the features of the 
SUPER HIGH SPEED COMSTAR T/F 10" 
PRINTER plus a i5'i"' carnage and more 
powerful electronics to handle larger 
ledger business forms! Exclusive bottom 
paper feed!! 

PARALLEL INTERFACES 

For VIC-20 and COM-61- S69.00 
For All Apple Computers— $79.00 

NOTE; Other printer interfaces are 

available at computer stores! 



Double 

Immediate Replacement 

Warranty 

We have doubled the normal 90 day war- 
ranty to 180 days. Therefore if your 
printer fails within '180 days' from the 
date of purchase you simply send your 
printer to us via United Parcel Service, 
prepaid. We will IMMEDIATELY send you 
a replacement printer at no charge, 
prepaid. This warranty, once again, 
proves that WE LOVE OUR 
CUSTOMERS! 



I I 

Enclose Cashiers Check, Money Order or Personal Ctveck. Allow 14 days I 
I -- - ■ — -- '■ ■ ■- 



(or delivery, 2 to 7 days tor phone orders. 1 day express mail! Canada 



orders must be in U.S. dollars. VISA 
I stiip C O.D 



MASTER CARD ACCEPTED. We 



C M T C Q p D I 7 C C {WE LOVE OilR CUSTOMERSI 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phont 312/382-S244 to order 



SUPER-10" 
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4 Color 
80 COLUMN Letter Quality 

PRINTER/PLOTTER 

Super .^^^^^ Special 



$99 

Sale 




$99 

^,2PBVCE 
SALE 



• LOWEST PRICE IN U.S.A. 

Comnnodore-64 & VIC-20 

• List your programs • High resolution graptiics for bar charts and geometric figures (like 
spirograph) • Plugs directly into VIC 20 and Commodore 64 ~ Interface included • Lowest 
cost letter quality printer in the country. 
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ACTUAL PRINT SAMPLES 

UPPER CASE - ABCDEFGhlJKLriNOPQRSTUUWXYZ 
LOWER CASE - abcde f gh i jk I mnopqr s t uuuxyz 




At last you can list your programs (even control characters) and make beautiful high resolu- 
tion graphics at an affordable price. This 80 column letter quality printer/plotter is great for 
making complex bar charts for business plus fancy greeting cards and geometric designs. 
Great for homework too. Everyone must have a 4 color printer plotter for their VIC-20 or 
Commodore-64. List S199.00. Sale $99.00. 



[ 



• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
J_BESTSERyiCE IN U.S.A. » ONE DAY EXPRESS MAIL * OVER 500 PROGRAMS » FREE CATALOGS 
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J Add S10.00 (or shlpplnfl, handling and Ifiaurance, IINncHa retldantt I 
I p^M* add 6% UK, Add SIO.OO (of CANADA, PUERTO flICO, HAWAII I 
I ort<.i..WE 00 NOT EXPORT TO OTHER COUNTRIES. | 

I Enclose Caahisfs CUBCh. Monay Order of Pefsonal Checli Altow U I 
I daya (or dBllvsry, Z to 7 days (or phone ofders, 1 day expresB mail! ■ 
I Canada ofdefa must be in US. dollari. Visa MaslerCard COD ! 
•"•^— •^^^^^^_^_,^__ I 
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BOX 550, BARRINGTON, ILLINOIS 60010 
Phons 312/3825244 to ordar 



S? It'stimeforyour 
computer to grow up. 



VIC-20 EXPANDER SALE! 



8K RAM MEMORY EXPANDER 

(Free $16.95 Game) 

16K RAM MEMORY EXPANDER "CARDCO" 

(Free $29.95 Adventure Game) 

24K RAM MEMORY EXPANDER 

(Free $29.95 Adventure Game) 

32K RAM MEMORY EXPANDER 

(Expands to total memory to 57K (57,000 bytes) 

3 SLOT "CARDCO" SWITCHABLE EXPANDER BOARD 

6 SLOT "CARDCO" SWITCHABLE "CARDCO" 

RIBBON CABLE EXPANDER BOARD (Lifetime warranty) 

40-80 COLUMN BOARD 

"CARDCO" PARALLEL PRINTER INTERFACE 



LIST SALE 

$ 69.95 $39.00 

$ 99.00 $49.00 

$159.00 $59.00 

$199.00 $75.00 

$ 39.95 $29.00 

$ 99.00 $49.00 

$ 99,00 $59.00 

$ 99.00 $69.00 



VIC-20 
WORD PROCESSOR SALE 

1. "Write Now" Word Processor Cartridge! (Better than Quick Brown Fox) No disk drive or 
cassette player needed! Just plug in the "Write Now" cartridge. Easy to use and learn, has all the 
professional features: margin settings, editing word wrap, scrolling, search and replace, center- 
ing, page numbering, user defined characters, ascii code set that allows use of all printer 
features!! Includes a powerful mailmerge for mailing lists! List $39.95 Sale $34.95. 

2. "H.E.S. Writer" Word Processor Cartridge! Full screen editing, scrolling up and down, word 
wrap, left and right justification, centering, page numbering, screen text preview and more! List 
$39.95. Sale $24.95. 

3. "Total Text" Word Processor creates professional documents! Features include page number- 
ing, right and left margins, paragraph control, upper/lower case, full screen editing, footnotes, 
etc.! (8K Ram required) Tape List $34.95. Sale $19.95. 

4. "Total Labels" Mailing List! Keep and print mailing list labels with ease. Add change and 
deSete labels, alphabetize, option to select any part of list. (8K Ram required) Tape List 
$24.95. Sale $14.95. 
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VIC 20 

40-80 COLUMN BOARD 

SCOOO 



only 



59 




Now you can get 40 or 00 Columns on your T.V. or monitor at one time! No 
more running out of fine space for programming and making coiumns. Just 
piug in this board and you immediately convert your VIC-20 computer to 40 
or 80 columns! Comes in an attractive moided case with instructions! List 
$99.00. Sale $59.00. 



FOR ONLY $24.95 you can get a 40-80 Column Board "WORD PROCESSOR" witti mail merge 
and terminal emulator PLUS! AN ELECTRONIC SPREAD SHEET (like Visicalc) the word 
processor requires 8K— mail merge 16K! List $59.00. Sale $39.90. 'If purchased with board 
only $24.95. (Tape or Disk.) 



WE LOVE OUR CUSTOMERS! 



80 

COLUMN 



COMMODORE 64 , 

80 COLUMN BOARD 
Sggoo 




Now you uan program 80 columns on the screen 
at one time! Converts your Commodore 64 to 80 
columns when you plug in the PROTECTO 80 
Expansion Board. List $199.00. Sale $99.00. 



SALE 



FOR ONLY $24.95 you can get an 80 Column Board "WORD PROCESSOR" with marl merge and 
terminal emulator PLUSI AN ELECTRONIC SPREAD SHEET (like Visicalc} List $59.00 Sale $39 90 
* If purchased with board only $24.95. (Tape or Disk.) 
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® SANYO MONITOR SALE!! 




9" Data Monitor 



80 Columns x 24 lines 
Green text display 
Easy to read - no eye strain 
Up front brightness control 
High resolution graphics 
Quick start - no preheating 
Regulated power supply 
Attractive metal cabinet 
UL and FCC approved 



75 Day Free Trial • 90 Day Immediate Replacement Warranty 



9" Screen - Green Text Display 
12" Screen - Green Text Display (anti-reflective screen) 
12" Screen- Amber Text Display (anti-reflective screen) 
12'' Screen-Super 1000 Line AnnberText Display 

14" Screen - Color Monitor (national brand) 

Display Monitors From Sanyo 

with the need for computing power growing every day, Sanyo has 
Stepped in to meet the demand with a whole new line of low cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. All models come with an array of features, including up- 
front brightness and contrast controls. The capacity 5 x 7 dot 
characters as the input is 24 lines of characters with up to 
80 characters per line. 

Equally important, all are built with Sanyo's commitment 
to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality is 
reflected in our reputation. Unliite some suppliers, Sanyo designs, 
manufactures and tests virtually all the parts that go Into our products, 
from cameras to stereos. That's an assurance not everybody can 
give you! 



$ 69.00 
$ 99.00 
$ 99.00 

$129.00 
$249.00 



Offiaa/Vkiffo Products 
of the Las Angeles 1984 Olympics 




• LOWEST PRICES* 15 DAY FREE TRIAL* 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 
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Com mod ore 64 

EPYX 

A ward Winning Games 

Jumpman — If you like Donkey Kong, you'll love Jumpman. Over 30 
different screens with 8 speeds and 5 skill levels make this the fastest action 
gome in the country. You must leap girders, climb ropes, and scale ladders to 
reach and diffuse bombs while avoiding robots, birds, bullets, explosives, 
crumbling walls, vanishing escape routes, and many other obstacles. (Truly a 
fantastic game ! ) List $39.95. Sole $24.95 (Disk/Tape,) 

Temple of Apshai — (computer game of the year). This is the standard by 
which other adventure games are judged. Full color graphics portray the 
temple and all its contents — magic, monsters, doomed cities and damsels In 
distress. Do battle in real time with over 20 monsters, expansion modules will 
keep your adventure alive in the future. List $39.95. Sale $24.95. (tape/disk). 

(Also Available For VIC-20) 

' f^T^P '''^ ^ Summer Games — Now you con compete in the Olympics right along with 

v^sr'fW7T^ - ""W/f! K '■' 'fhe real competitors. Compete in track, swimmmg, diving, cycling, archery, 
weight lifting, rowing and more. This Olympic gome is so realistic it even 
includes a beautiful opening ceremony and an awards presentation after each 
event. (Highly recommended, by far the best Olympics game we've seen). 
List $39.95. Sale $28.00. (disk only). 

Dragon Riders of Pern — Based on the best selling book series by Anne 
McCaffey (over 10 million sold). This program forces you to moke an alliance 
with the Lord holders, then mount your drogon (stunning graphics) and bottle 
the dreaded thread. (Super fost action with a great theme). 
List $39,95. Sale $24.00. (tope/disk). 







Fax — Stop wasting quarters! Now you can ploy Exidy's Fax at home, Ploy 
against the computer or on opponent to get the answer first, over 3,700 
questions dealing with sports, television, movies, histories, and many more 
subjects will keep you playing for hours (a must for trivia buffs). 
List $34.95. Sale $24.95. (disk only). 

* Buy Any EpyxGamo From Proiocto And Send the Ptool Of Putchoio Seols lo Epyx And Epy* Will Send You A f reoGonno. 
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At LAST!!! A Real Fught Simulator!!! 

FOR THE COMMODORE 64 COMPUTER! 

ONLY ^29'* 



39 



Cassette or Disk 



95 



• Three Dimensional 
Terrain Graphics 



Multiple Airports 
and Runways 



• Dual Radio Naviga- 
tion Instruments 



• Full Feature, Actual 
Configuration 
Instrument Panel 



• Multiple Air 

Navigation Charts 



• Instrument 
Approaches 



From The Creators of HELLCAT ACE! 

A rea! flight simulator allows you. the pilot, to accomplish 
Takeoffs, Landings, Cross-Country Navigation, and 
Emergenci/ Procedure practice under Qear (VFRf, Cfoudy 
flFR}, and Cross-Wind conditions. SOLO FLIGHT is such 
an advanced simulation that uses realistic three dimensional 
terrain graphics, actual configuration instrument panel, 
multiple air navigation maps, and accurate aircraft per- 
formance characteristics to provide the challenge, thrill, ex- 
citement and joy of the flight experience!!! 




• Takeoffs 



* Landings 



• Cross-Country 
Navigation — Day, 
VFR and IFR 
Flying 

• Emergency 
Procedures 
Practice 



• Air Mail Delivery 
Game for 1-4 

Players 

• Smooth Landing & 
Good Navigation 
Scoring 




^l« 



MicroProse Software 

SOLO 
FLIGHT 



'.^iji^t* 




* - i • p» I* I * t^ ■« - 
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Commodore 64 

No. 1 

Educational Software 

At Its Best 



KIDS ON 
ItEYS ^ 



i*«i 




Mjy^ROlOf 




.-IHAIKS 




We make learning fun. ^^ %m m ^7 # # 



Kids on Keys — Letters, numbers, 
ond pictures rain down the screen. 
It's up to you to find the matching 
keys or type in the correct word 
before the images disoppeor. Helps 
familiarize the children with the 
computer keyboard as well as 
identifying numbers, letters, and 
words. List $34.95. Sole $22.00. 
(Cortrldga/Disk) 



In Search of the Most Amazing 
Thing — You have been given a 
quest to find the most amozing 
thing. You must negotiate with the 
aliens as well as use your problem 
solving skills to overcome obstacles 
along the woy. Fantastic for 
leorning step by step thinking to 
overcome problems. Highly 
recommended! • 
List $39.95. Sale $28.00. (Disk) 

Trains — Enter the world of Big 
Business. Keep the railroad going 
ond growing. Teaches fundomenfols 
of financial management [and 
planning). This is o must for ony 
youngster and most adults. Very 
highly recommended. 
List $39.95. Sale $28.00 (Disk) 
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fRAQ! 
lEVIR 




■f 



Fraciion Fever — This fast paced 
arcade grophic program helps you 
develop: better understanding of 
what a froction is, of relotionships 
between different fractions, and 
numerical and visual representation 
of fractions. To succeed you must 
match the right fractions, zap the 
wrong ones, look out for holes in the 
floor, and watch the clock. (Fast 
paced, highly recommended! !). 
List $34.95. Sale $22.00. (Cartridge) 



Up For Grabs — If you like UP FOR '-"^ 
Scrabble you'll love this one. You iHHtABS 
have to grab letters off o rotating I 
cube before anyone else and then 
use the letters to make words in a 
hurry. Fantastic for spelling and 
vocabulary skills. 
List $39,95. Sale $28.00. (Cartridge) 



Aerobics — Follow the 
instructions on the screen to fun ond 
fitness. Including warm ups, 
aerobics, stretches, and cool- 
downs. Fantastic graphics let you 
follow the characters exactly. 
Tailors your exercise program to 
your needs. Best fitness progrom 
we've seen. List $44,95. Sate $36.00. (Disk) 
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Commodore 64 

SUPER 



Fantastic Sale! 

HES Special Programs For Your Computer 



While They Last!! 



Call Today!! 



First Come Basis!! 




SUPER ZAXXON Sale $27.95 

• Fantastic Graphics & Sound • Best Arcade Game • Super Action 

The smash hit arcade game is now a reality on your Commodore-64. This advanced 
version of Zaxxon includes multi-level gun emplacements, tunnels and even the fire 
breathing dragon. (Highly recommended). List $39.95. Sale $27.95. 



List S39.95 

POOL CHALLENGE Sale $24.95 Sfliej27.95 

• 6 Games in One* Endorsed by Minnesota Fats- Great Action 

Now you can play pool on your Commodore-64. Sharpen your aiming accuracy and 
shooting finesse. Using only a joystick and a few keystrokes you choose where to 
aim and how much power to use. Fantastic action. (Cartridge). List $29.95. Sale 
$24.95. 



List $29,95 
Sale S24.95 

HES GAMES Sale $29.95 

• 6 World Class Events- Fantastic Realism • Instant Replay 

Now you can have the Olympics in your home. Compete in 6 events including 
weightlifting, springboard diving, hurdles, 100 meter dash, long jump and archery. 
This one will keep you playing for hours. (Disk). List $39.95. Sale $29.95. 




HES Games 





List $39.95 
Sate S29.95 



THE PIT Sale $22.95 

• Arcade Classic • Fantastic Graphics • Great Sound 

This arcade classic has all the realism of the arcade with tunneling minors, rampant 
robots, missiles, tanks and even a pit monster. This game will keep you playing for 
hours. (Cartridge). List $29.95. Sale $22.95, 



List $29,95 
Sale $22.95 



We HaveAU HES Products At Super Sale Prices! ! 



PM^CDDD|7CC IWE LOVE Oun CUSTOMERS! 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 Id ordar 



VIC 20 



EDUCATIONAL PROGRAM SALE!! 



$19.95 

was $34.95 

Educational Software 




We make learning fun. 




Ktndercotnp— is for ages 3 
through 8. Tasks include match- 
ing shapes and letters, writing 
names, drawing pictures and 
filling in missing numbers. 
KINDERCOMP teaches reading 
readiness and counting skills. 
(Cartridge). List $34.95, Sale 
S19.9S. 




Story Machine — IS a computerized 
storybook come to lite. Children enter their 
own story which the computer animates with 
full color graphics and sound. STORY 
MACHINE is tor ages 5 to 9 and teaches 
sentence structure and keyboard recognition. 
(Cartridge). List S34.95. Sale $19.95. 




Face Maker— lets children 
create funny faces that can be 
animated to wmk, smile or wig- 
gle their ears. PAGEMAKER 
teaches computer fundamentals 
such as menus, cursors, simple 
programs and graphics to ages 
4 to 12. (Cartridge). List S34.95. 
Sale S1 9.95. 




Alphabet Zoo — helps children 
strengthen their letter recognition 
skills as they associate letters of the 
alphabet with the sounds they repre- 
sent. The game also helps sharpen a 
child's spelling skills. Alphabet Zoo 
IS for ages 3 to 8, (Cartridge), List 
S34,95. Sale $19.95. 



Kids on Keys—familiarizes children 
with the computer keyboard as they 
learn to identify numbers, letters, and 
words, and associate them with im- 
ages they see on the screen. Kids on 
Keys is for ages 3 to 9. (Cartridge), 
List S34.95. Safe SI 9.95. 
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VIC-20 

Cartridge 

Games 



Factory Clearance 

CREATIVE 
SOFTWARE 



No. 1 Seller In U.S.A. 



DIPI^H^^B (like Defen- 
niilil^B der.) Voted No. 
|3BI^1 ] computer 
H|^^Jm| game overall by 
Pi^B^^|[ Creative Com- 
puting ! Fan- 
tastic copy of on 
arcade classic. 
Destroy alien saucers and gun 
towers while avoiding enemy 
objects that float by. List $34.95. 
Sale $7.95. 





Serpentine — 
Awarding win- 
ning game. 
Avoid hostile 
red snakes and 
lay your young 
vt/hile getting 
food to keep 
you alive. Fan- 
tastic strategy game that has 
become a classic. List $34.95. 
Sole $7.95. 



Priced 

Below 

Cost 



Apple Panic — The fast 
action connputer game 
hit now comes to the 
VIC-20. You must dig 
traps in the brick floor 
and wait for the wander- 
ing apples to fall in. 





Rat Hotel — Here you get to ploy the 
rot. Running and jumping from floor 
to floor in Hotel Paridisimo you must 
eat whatever you find but Woldo the 
maintenance man has set many 
traps for you that you must avoid. 
Plus Waldo has on atomic elevator 
that let's him jump several floors at 
once. See if you con get to the bot- 
tom before Waldo does you in. Fontostic graphics 
and sound. List $34.95. Sale $9,95. 

Spills & FilU — How much is too 
much? How much isn't enough? With 
this original concept educationol 
game designed for grade schoolers 
through high school students, you 
con develop ratio ond perspective 
skills. With three exciting and 
challenging skill levels, this program 
presents new and ever-changing 
challenges for the inquisitive mind. Sale $9.95. 

Trashman {Better than Pacman). Dash for the trash 
and picit up CASH! ! ! List $29.95. Sale S9.95. 



Then simply beat them 
on the head to push it 
through and destroy the 
apple. Otherwise the 
apple's will roll right 
over you and kill you. 
(Fast action.) List $34.95, 
Sale $7.95. 

Terraguard — Your mission is 

to destroy the aliens before 
their ship hos a chance to land. 
Move your base along the 
ground and shoot up at them. 
List $34.95. Sole $9.95. 



While 

They 

Last 





Video Monio — You're in an 

open field and strange olien 

creatures are roaming all over. If 

you stand still too long, they'll 

collide with you, cousing instant 

annihilation. Your only defense" 

is to destroy them by throwing your electronic, 

footboH-shaped alien zapperot them. Sale $9.95. 



Household Finances ~ This 4 port 
program will toke care of oil your 
family's finances. Record, change 
and delete expense and income 
items from 16 categories, monthly 
ond yearly totols are easily graphed 
and even a budgeting program to 
help you clamp down on excessive 
^pending. List $34.95. Sale $9.95. 
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Shutter Bug (Continued J^rom Page 32) 



time spent in the maze, the number of shots taken and 
the last shot you took {the negative to the right of the 
view finder). Also, when your camera is wound, an 
arrow on the screen indicates this. 

The game is written completely in BASIC (even the 
3-D view), and the same program runs on both the 64 
and VIC 20 (it tests location zero to see which computer 
it is running on). The 64 version is really the VIC 20 ver- 
sion centered and minus the disappearing map. The 
program is extremely compact in order to allow it to 
run on the unexpanded VIC, so be very careful when 
typing it in. 



The maze-drawring algorithm works with any size 
maze, though it does not have a guaranteed completion 
time. The 3-D view is kept in three two-dimensional ar- 
rays, and is optimized to prevent redrawing doors that 
are already open or "undrawing" ones that are not there. 

The VIC 20 joystick is re-encoded to look like the 64 's 
joystick. This is then decoded using the LOG{) function, 
which is a slow function (though faster than a single 
2|X) but only requires a single call, decoding all the bits 
in the same annount of time. In the case of two switches 
down at the same time, LOGO will give you the higher of 
the two. Logarithms of base two are used, L0G(x>'L0G(2). 



Shutter Bug 



1 DIM A%(5,5) ,B%(5,5) ,C%(5,6) , 2^ 
0%(5} ,Q%{4) ,.M%(4) :I = RND{-TI) 
:GOTO 24 

2 PRINT C$" [DOWN] "INT(TI/60) 

iIF TI>TJ GOTO 58 24 

3 Q=-2*(PEEK(T+0%(0) ) <M)-4*(PEEK 
(T+0%(0-l) )<M)-(PEEK(T+0% (0+1) ) 

<M) 25 

4 FOR 1=0 TO 5:X=I+S:F0R J=fl TO S 
;A=A% {I ,J) : IF A=0 GOTO 8 

5 IF J = (l THEN IF P THEN IF (A AND 26 
Q)={A AND V)THEN J=6:G0T0 8 

6 2=W*J+X:IF A AND Q THEN POKE Z, 27 
C%(I,J) :GOTO 8 

7 POKE Z,B%{I,J) 

8 NEXT:NEXT:V=Q:RETURN 

9 A=PEEK(D):IF C THEN A=(A/4 AND 28 
7)+(8 AND PEEK(U+l)/16)+(A/2 

AND 16) 

10 IF{A AND 31) =31 THEN RETURN 

11 ON LOG {NOT A AND 31) /L2 GOTO 
14,15,17,48:I=T+0%(0) 

12 IF PEEK(I)=H THEN POKE T,I1:T=I 
:POKE T,G 

13 RETURN 29 

14 I=T-0% (0) :GOTO 12 

15 0=l-0*(0<4) 

16 G=0%(0):POKE T,G:RETURN 

17 0=0-1-4* (0=1) :GOTO 16 

18 I=N+0%(L):IF PEEK{I)=H THEN 
POKE N,H:N=I:GOTO 2R 

19 I = L:L = 1 + F!>J R(4):IF I = L GOTO 19 30 

20 POKE N,Q%{L) iRETURN 

21 GOSUB 9:GET A$:IF A$<> rHEN 

PRINT CS" [DOWN, SPACE 2, SHFT I]" 
: PRINT B$" [BACK ARROW, SHFT K] 
":WD=1 

22 GOSUB 2:G0SUB 18 31 
:iF T+0%(0)<>N THEN ON R-Hl 

GOTO 21 :R=0:P=0: GOSUB 3:P=1 
:GOT0 21 



R=1:B=L-0~4*{0>L) :FOR Y=0 TO ; 
Z = U-l-W*Y:FOR X=0 TO 1 
POKE X-l-Z,FN F(B) :NEXT:NEXT 
GOTO 21 
DEF FN R{X) =INT(RND(1) *X) 
;M=128:DEF FN F ( Z } =ASC (MID$ 
(F$,l-l-Z*6+Y*2+X) ) 
IF PEEK(0)=75 THEN C=1:W=22 
:L=7580:D=37151:POKE D+3,127 
:K=36867:GOTO 27 
W = 40:L = lf524:D=5632O 
:POKE 53281,1 
FOR 1=1 TO 18:D$=D$+" " 
:C$=C$+" [SHIFT *]":NEXT 
:A$=LEFTS{D$,W/2-6) 
:B$=LEFT$(A$,W/2-10} 
PRINT" [CLEAR] ": PRINT A$" 
[BLACK, SHFT U, SHIFT *8,SHFT I] 
": PRINT A$"fSHFT -,CYAN, 
CMDR *,RVS,GPACE6,RV0FF, 
SHFT POUND, BLACK, SHFT -] " 
rPRINT AS" f SHFT -] [CYAN, 
CMDR *,RVS,SPACE4,RV0FF, 
SHFT POUND, BLACK] [SHFT -] " 
PRINT A$"[SHFT -,SPACE2,CYAN, 
SPACE4, BLACK, SPACE2, SHFT ~, 
CMDR Q,SHFT -l-,SHIFT * 2, SHFT +, 
CMDR W]":FOR 1=1 TO 3 
:PRINT A$"[SHFT -, SPACES, 
SHFT -,CMDR Q,CMDR W,SPACE2, 
CMDR Q,CMDR W] ":NEXT 
PRINT A$"tSHFT -, SPACE2 , GREEN , 
SPACE4, BLACK, SPACE2, SHFT -, 
CMDR Q,SHFT +,SHIE"r * 2, SHFT +, 
CMDR W]": PRINT A$"[SHFT -] 
[GREEN, RVS, SHFT POUND, SPACE4 , 
CMDR *,RVOFF, BLACK] [SHFT -] " 
PRINT A$"[SHFT ~, GREEN, RVS, 
SHFT POUND, SPACE5, CMDR *, 
RVOFF, BLACK, SHFT -] " 
:PRINT AS" [SHFT J, SHIFT *3, 
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50 



51 



52 



53 
54 



55 



5^ 



SHFT K]": PRINT B$"{RVS,SHFT U] 48 
"C$"[SHFT I]" 

32 FOR 1 = 1 TO 9: PRINT BS'TRVS, 
SHFT -, BLACK] "D$" [SHFT -] " 
:NEXT:PRTNT B$"[RVS,SHFT J] 
"C$" [SHFT K,RVOPF] "; 

33 E=L+12*W+W/2~li :S=L+3*W+W/2~4 
:O=l:H=lfS0:GOSUB 47:H=32 
:U=S+2+2*W 

34 R%=S+l(; + 2*W:0%Cl)=-W:0^(2)=-l 
:0%{3}=W:0!1 (4)=1 :0%(«)=1 
:0%(5)=~W 

35 Q%(1)=-W-1:Q%(2) =W-1 : Q% ( 3) =W+1 
:g%{4)=l-W:C$=" [HOME] "+B$ 

36 POKE I,H:Z = ri:F0R Y = FN R(3)T0 5 
:A=I + 0%(Y) :IF PEEK{A)<>ir3fl 
GOTO 39 

37 F=C1:G = O:J=0:FOH X = i TO 4 
F=F-(PEEK(A+Q%(X) ) =H) 
IF PEEK(A+0%(X) )=h THEN G=G+1 
J=X-J 

38 NEXTrIF F<4 AND G<2 0R(G<3 
AND F<1)0R(G=2 AND 
ABS(J) =2)THEN Z = Y:Y = ri 

39 NEXT: IF Z<6 THEN 1=1+0% (Z) 
:V=V+1:G0T0 36 

40 IF V<95 THEN GOSUB 47:G0T0 35 

41 FOR I=fl TO 6:A%{0rI)=l 
:A% (5,I)=4tF0R J=0 TO 5 
:B%(J,I)=H:C%(J,I)=16fl:NEXT 
;NEXT 

42 FOR 1=1 TO 4:A%{I,1)=2 
A%CI,5)=2:NEXT:FOR 1=2 TO 3 
FOR J=2 TO 4:A%(I,J)=2iNEXT 
NEXT 

43 B%(0,0)=95:B%(5,f))=lO5 
:B%(0,ri)=233:B% (5,6)=223:P=1 
:L2=L0G(2) :TJ=18fln0 

44 C^(l,l)=55:C%{4,l)=lfl5 
:C%{1,5)=233:C%{4,5)=223 
:FOR Z=l TO 24 : READ A 

45 F$ = F$+CHR$ (A+46-5-M) :NEXT 
:Q%(l)=3tl:Q%(2)=60:Q%(3)=?.2 
:Q% (4)=ri2:G0SUB 47:N=I:FR=1 

4'"> GOSUB 19:V=0:F=0:G=Q%(O) 
:G03UB 47:T=I:P0K£ T,G 
:GOSUa 57:TI$ = "t)P!70OO":GOTO 22 
I=E+2+W+FN RC17)+W*FN R(9) 
:A=PEEK(I) :0N-(A<>H}GOT0 47 
RETURN %i^ „-^;is^ -7«f^ 
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ON WD+1 GOTO 54: IP T+0%(0)<>N 
THEN A$="NOTHING THERE" :F=fl 
:I=H:J=3:G0T0 55 

A$="CLICK":B=L-0~4*(0>L)+1:F=B 
:M%(B)=M%{B)+1 

FOR Y=0 TO 2:Z=R%+W*Y 

:FOR X=0 TO 1:P0KE X+Z , 

FN F(B-1)-M:NEXT:NEXT 

IF MS THEN iviS = 0:POKE K,46 

:GOTO 56 

IF C AND FN R(9)=l THEN MS=1 

:AS="ANT TOOK MAP": POKE K,24 

:GOTO 56 

POKE N,H:GOSUB 47:N=I:GOTO 56 

A$="DOUBLE EXPOSURE" 

:FR=FR+1* {FR>0) :DE=DE+1 

:M%(F)=M%(F)-1:F=0:I = 6'5:J=16 

FOR Y=0 TO 2:Z=R%+W*Y 

:FOR X=0 TO 1:P0KE X+Z, 

I+FN R(J)':NEXT:NEXT 

PRINT C$SPC(10-LEN(A$)/2) A$ 

:FOR 1=1 TO 500:NEXT:WD=0 

PRINT C$D$:PRINT:PRINT 
PRINT B$FR: PRINT B$"[SPACE3]" 
PRINT fl$" [SPACE3] " :FR=FR+1 
IF FR<25 THEN .RETURN 

PRINT" [CLEAR] GAME OVER": PR INT 

:PRINT"TIMES BUYS PHOTOS" 

: PRINT 

I=M%(3) :A=I*75: PRINT" HEAD" I" @ 

$75": IF C THEN POKE K,A6 

J=M% (2) +M% (4) : A=A+25*J 

:PRINT"SIDE"J"fi $25":I = I+J 

J=M%(1) :A=A+J*10 

:PRINT"TAIL"J"e $10": PRINT 

:J=24-I-J 

PRINT"MISSED"J"@ -$2": PRINT 

:A=A-J*2:PRINT"ENgUIRER BUYS 

DOUBLE" 

PRINT"EXPOSURES"DE"@ $1" 

:A=A+DE:PRINT:PRINT"TOTAL = 

$"A:POKE 198,0: I=TI 

GET A$:IF A$=""AND TI<I+12fl0 

GOTO 64 

RUN:DATA 27,39,39,27,61,69,39, 

39,35,47, ,29,27,39,35,35, , ,27, 

27,47,35,28,, ;;^.. c 
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no more pencils. . 



Hangman 
in LOGO 

by David Malmberg 

Frrnnont, Gtiliforiiia 



Let's continue our quixotic explo- 
ration of the LOGO computer lan- 
guage for the Commodore 64. In 
previous columns we had an over- 
view of LOGO'S turtle graphics and 
list processing capabilities, devel- 
oped an interactive game called 
LOGO Lander, and discussed books 
and other resources that will help 
you to learn about LOGO, In this 
column, we will put much of what 
we have already learned together 
to develop another game, LOGO 
Hangman. This program will use 
both the turtle graphics and the list- 
manipulation facilities of LOGO. 
By studying the listing as you key 
in the program you will learn a great 
deal about the language and how 
its procedural structure can be used 
to adapt simple games and 
graphics to the Commodore 64. 

The game of Hangman is normally 
played with paper and pencil by two 
people, One person picks a secret 
word and the other person tries to 
guess it. Initially blank spaces are 
shown for each letter. For example, 
you might start the game with: 

indicating that the word is nine letters 
long. You guess one letter at a time. If 
you guess a letter that is in the secret 
word, that letter is substituted for the 
blank where ever the letter occurs in 
the word. For example, after a few 
guesses the word might be showm 

as: cie ti t. At this point 

you should recognize the word as 
"scientist" and by announcing that 
fact win this round of the game. 




Figure 1, 

Whenever you guess a letter that 
is not in the word, the other person 
draws part of a body hanging in a 
gaDows, The first "missed" letter 
causes a head to be drawn. The sec- 
ond wrong guess draws the neck. 
After seven wrong guesses all of the 
body parts will have been drawn and 
you lose that round of the game. 

In the LOGO version of Hangman, 
the Commodore 64 is your opponent 
and picks its words from a diabolical 
vocabulary. If you do not like the pro- 
gram's list of words, you may substi- 
tute your own words. Using lists of 
spelling words will make this program 
a painless (and even fun) way to im- 
prove spelling grades. As you enter 
your letter guesses, the program will 
display the alphabet and a separate 
list of die letters you have tried in the 
bottom part of the screen. Also shown 
will be the blanks of the secret word 
with your correct letter guesses in 
their proper position. When you 
guess wrong, LOGO'S turtle graphics 
capabilities are used to draw the body 
parts on the top of the screen. See 
Figure 1 . for an example of how the 
screen wiE look about half-way 
through a typical game. 

A few words of explanation on 
each of the procedures will make fol- 
lowing the logic of the program easier, 

Tlie first procedure in the listing, 
Hangman, produces an animated 
title page. The command RUN 
: BODY, PARTS draws each body part 
in turn. Calling the FROWN proce- 



dure changes the body's smile to a 
frown. The procedure then asks you 
to press any key. Once you press a 
key, the GAME procedure is called 
and play begins, 

The second procedure in the list- 
ing, INITIALIZE, performs a number 
of start-up functions, including; (1) 
making the list of letters akeady tried 
(:TRIED) empty, (2) setting up the 
complete list of :BODY,PARTS, (3) 
executing the PICK.WORD proce- 
dure, (4) clearing and splitting '. ,ie 
screen so graphics will be drawn on 
the top twenty lines and text will be 
written on the bottom five lines and 
finally (5} drawing the gallows. 

PICK.WORD first makes sure 
you will get random numbers when 
you need them. Then it sets up the 
game's : VOCABULARY of secret 
words. If you want to change the 
vocabulary, just substitute your 
own list. Next PICK.WORD calls the 
procedure RANDOM, LIST to make 
a random selection from the : VO- 
CABULARY list and makes it the 
secret : WORD. Next the number of let- 
ters in : WORD is counted and a list 
of blank characters of the same length 
is created, Fmally, : ALPHABET 
is initialized. 

GET.LETTER first prints the blank 
characters and the correct letter 
guesses in their proper position. Then 
it gets your next : LETTER guess. If 
the : LETTER is one you have already 
tried, an error message is printed 
and you start the whole procedure 
again. If :LETTER is a new guess, it 
is first added to the list : TRIED. Then 
:LETTER is tested to see if it is a 
member of the set of characters in 
the secret : WORD, If it is, the call to 
the procedure SWAP changes the 
blank character(s) to the : LETTER 
in their proper position(s). Finally, the 
reference to DELETE causes the 
: LETTER to be replaced by a blank 
in the: ALPHABET 
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The TRY procedure in conjunction 
with GET.LETTER is the heart of the 
program. First, TRY calls GET.LET- 
TER. Then it tests if you fiave guessed 
all of the letters in the secret word 
by testing if there are any blank char- 
acters left. If you have guessed the 
word correctly, the procedure tells 
you how many tries it took and asks 
if you want to play again. If there are 
still blank characters (and hence let- 
ters to guess), TRY tests if the cur- 
tent ; LETTER is in :WORD. If this 
test results in a true condition, TRY 
is executed recursively. 



If your : LETTER guess is not in 
:WORD, then the command RUN 
SENTENCE FIRST ;BODYPARTS f ] 
causes the next body part to be drawn. 
Then that body part is deleted from 
the list of :BODYPARTS. If that was 
the last element of :BODYPART then 
all the parts have been drawn and 
you lost the round; the smile is erased 
and a frown dravm on the face; the 
secret word is revealed and you are 
asked if you wish to play again. If that 
was not the last element of :BODY. 
PARTS, the game continues by 
TRYing again. 



The procedures GALLOWS, BOX, 
POLYGON, HEAD, NECK, TRUNK, 
RIGHT.ARM, LEFT.ARM, RIGHT.LEG 
and 1.EFT.LEG are all straight for- 
ward turtle graphics routines to draw 
the shapes their names describe. 




Da vid Malmberg 



LOGO Hangman 



rO HANGMAN 

INITIALIZE. 

CURSOR 13 20 PRINT [LOGO HANGMAN] 

CURSOR 10 21 PRINT [BY DAVID MALMBERGl 

CURSOR 23 PRINT [GUESS THE SECRET WORD BEFORE YO) HANG!) 

RUN : BODY .PARTS 

FROWN 

CURSOR 10 m PR I Nil [PRESS ANY KEY] 

HAKE "LETTER READCHARACTER 

GAWI 
END 

TO INlIiAUZE 

HAKE "BODY. PARTS (HEAD NECK TRUNK RIGHT. ARH LEFT.ARM 

RIGHT.LEG LEFT. LEG] 
PICK. WORD 
NODfiftW 
CLEARSCREEN 
SPLITSCREEN 
BACKGROUND 11 
PENCOLOR 5 
HIDETURILE 
GALLOHS 
END 

TO PICK. WORD 

HAKE°"VOCABULAHY [BYTE FUCHSIA ALLOCATE QUEUE ADOBE 
BOOKKEEPER BASIC APRON TUREEN SWAN VETERINARY 
GHOST GIRAFFE ANTARCTIC MAGNET APROPOS PYRAMID 
OIONE COMPUTER P1Z2A LOGO KANGAROO FE GN UGLY 
SLEEPER MOUSTACHE SCIENTIST RETURN MAIDEN QUININE! 
"WORD t RANDOMiLlST^iVOCABULARY ) 



: BLANK 



HAKE 
HAKE 

HAKE 



END 



LENGTH , 

_ 'BLANK tl 
REPEAT ;LENGtH 
MAKE "ALPHABET 



COUNT iWORO ) 

[HAKE "BLANK LPUT "- : BLANK] 
"ABCDEFGHIJKLHNDPORSTUVWJCYZ 



TO RANDOM. LIST :L1ST 

OUTPUT ITEM ( 1 + RANDOM t COUNT :LIST ) ) iLIST 
END 



TO GAME 

INITIALIZE 

TRY 
END 



TO TRY 

fCt I PTTPD 

IF NOT MEMBER? "- ; BLANK THEN CURSOR 25 PRINTI 
SENTENCE lYOU GOT IT ON THE! COUNT i TRIED 
PRINT I-TH TRY II] AGAIN? 

TEST MEMflERV ;t.EITEK :WUHI) 

IFTRUE TRY 

RUN SENTENCE FIRST ;BODY. PARTS II ^^^ 

HAKE "BODY, PARTS BUTFIRST rllUllY. PARTS , ^ ,,^,^,, 
IF- ;BODY, PARTS = II THEN FROWN CURSOR ?? PRINI 
SENIENCE ETHE WORD WAS:1 :HORD 
PRINT [YOU LOST AN[) HUSI HANG!!] AGAIN? 
TRY 
END 



CURSOR 70 PRINT StMLNCE IGUESS THE WORD; 

LURSDR 22 PRINTI [ENTER LETTER;] 

HAKE "LETTER READCHARACTER 

CUHSOR 24 PRINTI [ ....*..*.,. 

TEST MEMBER? : LETTER : TRIED 

IFTRUE CURSOR 10 21 PRINTI SEMTENCE [YOU ALREADY TRIED J 
;LtTTER GET.LETTER 

MAKE "IfilLD LPUI :LETTER ;TRIED 

CURSOR 2} PRINT SENTENCE [TRIED:] iTRIED 

TEST HEHiiER? : LETTER iWORIJ ., 

IFTROE MAKE "BLANK SWAP ;LETTER :BLANK iWORD 

CURSOR l(j 20 PRINT ; BLANK 
MAKE "ALPHABET DELETE tLLTTER lALPHABET 
CURSOR 23 PRINT SENIEHCt [LETTERS:] :ALPHABET 
END 



TO AGAIN? 

CURSOR 12 21 PRINTI [PLAY AGAIN ?] 
HAKE "LETTER READCHARACTER 
TEST ; LETTER = "Y 

IFFALSE NODRAH PRINT I IHANKS FOR THE GAME!!! TOPLEVEL 
END 



TO SWAP :L :D :W 

IP EMPTY? ;W THEN OUTPUT M 

TEST :L = ( FIRST :W ) 

IFTRUE OUTPUT FPUT ;L SWAP ;L { BUTFIRST 

TFFALEE OUTPUT FPUT ( FIRSI :B ) SWAP ;L 
( BUTFIRST :H ) 
END 



;B ) t BUTFIRST :W) 
( BUTFIRST ;B) 



10 DELETE :L :0 

IF ;Q - " THEN OUTPUT " 

TEST ;L - FIRST :0 

IFTRUE OUTPUT WORD "- DELETE ;L ( BUIFIHST :0 ) 

IFFALSE OUTPUT WORD ( FIRST :0 ) DELETE :L ( BUTFIRST :0 
END 



TO GALLOWS 

PENUP 

SETXY ( - 100 ) ( - 100 ) 

SETICADING 

PENDOWN 

BOX 200 b 

PENUP 

SETXY ( - 100 ) 100 

SETHEADING 90 

HENDOWN 

!3DX 115 !j 

PENUP 

SETXY 100 

SETHEADING 180 

PENDOWN 

rORHAHD 20 
END 



TO BOX :A ;B 

REPEAT 2 [FORWARD :A RIGHT 
END 



90 FORWARD :B RIGHT 90] 



(Continued On Next Page) 
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TO HEAD 


TO RIGHT. ARM 


RIKIT ISO 




SETXV 80 


PENUP 


FORWARD 7 




SEIHEADING 95 


SETXY ( -7 ) 37 


RIGHT 90 




POLYGON 20 5 


SETHEADING 225 


FWiWARD 1*0 




PENUP 


PENDOWN 


SETXY ( -7 } t - 27 ) 




SETXY 60 


FORWARD 15 


PENUP 




PENDOWN 


RIGHT 90 


END 




POLYGON 10 2 


FORWARD 5 






PENUP 


RIGHT 180 






SETXY [ - 8 > 70 


POLYGON 20 2 


TO LEFT. LEG 




PENDOWN 


^\m\ 180 


PENUP 




POLYGON 15 1 


FORWARD 5 


SEIxy 7 ( - 27 ) 




PENUP 


RIGHT 90 


SETHEADING 135 




SETXY 8 70 


FORWARD 1(5 


PENDOWN 




PENDOWN 


SETXY ( -; ) 37 


FORWARD m 




POLYGON 15 1 


PENUP 


LEFT 90 




PENUP 


END 


FORWARD 7 




SETXV ( - 8 ) 55 
SETHEADING 135 
PENDOWN 


TO LEFT.ARH 


POLyGON 25 2 




FORWARD Hi 


PENUP 


FORWARD HO 




LEFT 90 


SETXY 7 57 


SETXV 7 ( - 27 1 




FORWARD 14 


SETHEADING 135 


PENUP 




PENUP 


PENDOWN 


END 




END 


FORWARD i*5 








LEFT 90 


t 






FORWARD 5 


TO FROWN 




TO POLYGON :N ;S 


POLYGON 20 2 


SETXY ( -8 ) 55 




REPEAT ;N [FORWARD :S RIGHT JM/sNl 


FORWARD 5 


SETHEADING 135 




END 


LEFT 90 


PENDOWN 






FORWARD it5 


PENERASE 
FORWARD 11 






SETXV 7 J7 




TO NECK 


PENUP 


LEFT 90 
FORHARQ m 
PENUP 




SETXY t -7 ) 1*2 
SETHEADING 90 


END 




PENDOWN 




PENCOLOH 6 




BOX 14 7 


TO RIGHT. LEG 


SETXy { -B ) 18 




END 


PENUP 


SETHEADING ?5 






SETXY ( -7 ) C - 27 ) 


retlDOWN 




TO TRUNK 


SETHEADING 225 
PENDOWN 


FORWARD 10 
BifflT in 




SETHEADING 90 


FORWARD m 


i\ X url 1 j\i 

FORWARD 10 




SETXY ( -7 ) 37 


RIGHT 90 


END 




REPEAT 1 [POLYGON g IH PENUP SETHEADING 180 


FORWARD 7 






FORWARD 5 SETHEADING 90 PENOOHN] 


RIGHT 180 






END 


POLYGON 25 2 




c 
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Commodore 64 
Sprite Contest 
Winners 



by Betsy Byrne 

Associate Editor 



I received bundles of entries for the sprite contest 
announced in the Winter, 1983, issue of Power/Piay. In 
fact, the mailman on my route has been distinctly cool 
towards me lately. I was receiving entries right up to 
deadline day, and it was tough choosing the winners. 

An interesting phenomenon occurred, however — all 
my entries were in age category C (age 1248). Since we 
had originally planned to have a winner in each of three 
age groups, I was stumped — but only for a minute. 
"Why not just have a first, second and third prize 
instead! " I exclaimed to myself. So that's exacdy what 
I did. 

It was a bit hard choosing the first place winner, since 
I had three entries that were running neck and neck. 
Fortunately, all three sprites were entered by one per- 



son so I never did choose, I just gave them all first place. 

The winner is John Dolinar, age 18, from Saga- 
more Hills, Ohio. His three sprites— Antique Car, Guitar 
and Spriteman — all showed imagination, talent and 
craftsmanship. As all of us know who have experimented 
with sprite creation, it's not as easy as it looks! If you 
type in John's Antique Car sprite you may be surprised 
at what you see when you run it. 

Our second place winner is Bonnie Baker, age 13, from 
Weston, Massachusetts. Bonnie's Sailboat sprite came 
to me in the form of a game: the Sailboat sprite is man- 
uevered around a group of buoys and tries to get as close 
to the buoys as possible, without crashing of course! 
Bonnie had some questions about making the boat sink 
to the bottom of the screen when it hits a buoy, and 
having it make a scraping sound as it hits. I gave her 
questions to Tim Villanueva, my friendly neighborhood 
sprite expert, and he promises some interesting answers 
for the next issue of Power/Play. 

Third place was captured by Mitch Shaw, 14, from 
Pensacola, Florida. He called his sprite Sprite Three, but 
I named it "Tigger the Tiger", and it was love at first 
sight. I mean, this thing is cute, folks! 

So there you have it, our first annual sprite-making 
contest. Did I say "First Armual? ' Does that mean there 
will be another contest this year? You wiE just have to 
wait and see — but be sure to SAVE all your most spritac- 
ular efforts, and — don't take any wooden sprites! 



1 


Antique Car 






1 :•'• '"*» 






:POKE V+40,2iPOKE V+28,3 


Btt^ 






:POKE V-H37,12:POKE V+38,0 






r> 


POKE 2R4n,13:POKE 2041,14 


1' ' 




8 


POKE V-H23,3:REM POKEV+29,3 


1 




in 


FOR 22=832 TO 394:READ Z 


V ^ 






• POKE 7.7. .I- NEXT 


9 REM ************************** 


12 


FOR YY=896 TO 958: READ V 


*** 




:POKE YY,Y:NEXT 


1 REIi * ANTIQUE CAR 


lA 


POKE 53248, 0n:POKE 53249,160 


: JOHN DOLINAR * 


16 


POKE 5325a, 23:POKE 53251,160 


2 REM ************************** 


20 


PRINT" [DOWN 4] " 


*** 


21 


PRINT" [RIGHT17, ORANGE, RVS, 


3 PRINT" [CLEAR]": POKE 53280^6 




SPACE7,RIGHT4,RV0PF,GRAY1, 


:POKE 53281,6 




SHFT I,SHFT U, RIGHT, SHFT U] " 


A V=53248:P0KE V+21,3:POKE V+39,2 


22 


PRINT" [RIGHT17, ORANGE, RVS] 


f Continued On Next Page) 
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[BLACK] [ORANGE] [BLACK] 


35 


FOR F=l TO 40: PRINT" [GREEN, 




[ORANGE] [YELLOW] [ORANGE] 




RVS] [RVOFF] ";: NEXT 




[RV0FF,GRAY1,RIGHT4,SHFT U2]" 


36 


FOR F=l TO 40:PRINT" [GREEN, 


23 


PRINT" iRIGHT17,RVS, ORANGE, 




RVS] [RVOFF] "; :NEXT 




SPACE7, RIGHTS, BLACK] " 


37 


FOR P=l TO 40:PRINT" [GREEN, 


2 A 


PRINT" [RIGHT11,0RANGE,RVS, 




RVS] [RVOFF] "; :NEXT 




SPACE7,yELL0W] [ORANGE] 


3 8 


FOR P=l TO 40: PRINT" [GREEN, 




[BLACK] [ORANGE] [YELLOW] 




RVS] [RVOFF] ";: NEXT 




[ORANGE] [RIGHT3, BLACK, SPACE2, 


39 


FOR F=l TO 39: PRINT" [GREEN, 




RVOFF] " 




RVS] [RVOFF] ";: NEXT 


25 


PRINT" [RIGHT11,RVS, ORANGE] 


Ifi 


POKE 2023,16O:POKE 2023+54272,5 




[YELLOW] [ORANGE) [YELLOW] 


41 


PRINT" [HOME] "; 




[ORANGE] [BLACK] [ORANGE, 


42 


FOR 1=0 TO 232 




SPACE15, RVOFF] " 


43 


POKE 53248, I:POKE 53249,160 


26 


PRINT" [RIGHTll ,RVS, ORANGE, 


44 


POKE 53250, 1+23: POKE 53251,160 




SPACE7, BLACK] [ORANGE] 


45 


NEXT 




[YELLOW] [ORANGE] [BLACK] 


46 


POKE V+16,2 




[ORANGE] [YELLOW] [ORANGE] 


47 


FOR 1=1 TO 23 




[BLACK] [ORANGE] [YELLOW] 


48 


POKE 53248,1+232 




[ORANGE] [BLACK] [ORANGE] 




:POKE 63249,160 




[RVOFF]" 


49 


POKE 53250, I:POKE 53251,160 


27 


PRINT" [RIGHTll, RVS, ORANGE] 


53 


NEXT 




[BLACK] [ORANGE] [YELLOW] 


51 


POKE V+16,3 




[ORANGE] [BLACK] [ORANGE, 


52 


FOR 1 = 2 3 TO HI 




SPACE15, RVOFF] " 


53 


POKE 53248, I-23:POKE 53249,160 


28 


PRINT" [RIGHT11,RVS, ORANGE, 


54 


POKE 53250, I:POKE 53251,160 




SPACE7, BLACK] [ORANGE, SPACES , 


55 


NEXT 




BLACK] [ORANGE] [YELLOW] 


56 


POKE 53264, 0:GOTO 42 




[ORANGE] [BLACK] [ORANGE] 


99 


END 




[YELLOW] [ORANGE] [RVOFF]" 


inf 


! DATA 0,63,255,0,48,0,0,40,0, 


29 


PRINT" rRIGHTll,RVS, ORANGE, 




15,250,0,6 3,250,128,85,250, 




SPACE9, RVOFF, SHFT Z , RVS , 




128,63,122,170 




SPACEll]" 


2^)0 


DATA 253,223,255,247,213,85, 


30 


FOR F=l TO 10 : PRINT" [GRAYl, 




63,192,0,0,0,0,0,0,0,0,0,0,0, 




RVS] [RVOFF] "; :NEXT 




0,0,0,0,0,0,0,0,0,0 


31 


FOR F=l TO 20: PRINT" [GRAYl, 


30fl 


DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 




RVS,CMDR T] [RVOFF] "; :NEXr 


400 


DATA 0,0, 0,1 28, 0,0, 120, 16,0, 


32 


FOR F=l TO 40:PRINT" [GREEN, 




191,240,0,190,176,0,245,80,0, 




RVS] [RVOFF] "; :NEXT 




223,240,0 


33 


FOR F=l TO 4n:PRINT" [GREEN, 


500 


DATA 95,112,0,93,24 0,0,15, 




RVS] [RVOFF] "; :NEXT 




24 0,0,0,0,0,0,0,0,0,0,0,0,0, 


34 


FOR F=l TO 4n:PRINT" [GREEN, 




0,0,0,0,0,0,0,0,0 




RVS] [RVOFF] "; :NEXT 


600 


DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 
















Sailboat 








2 


PRINT"WHEN SIZE OF STEP SHOWS 










ON SCREEN":PRINT 








3 


PRINT"TYPE A NUMBER FROM 1 AND 
10. " :PRINT:PRINT:PRINT 








4 


PRINT"WHEN SAILBOAT SHOWS ON 








5 


SCREEN" :PRINT"PRESS U TO MOVE 

UP" 

PRINT"H TO MOVE LEFT" 


PRINT" [CLEAR, DC 


)WN8] " 


1 REM MOVABLE MARIO 


6 


PRINT": J TO MOVE RIGHT": PRINT 
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m 

16 

17 
18 
19 



: PRINT" AND N TO MOVE DOWN" 
PRINT: PRINT"TRY TO MOVE THE 
SAILBOAT SPRITE AROUND THE 
NUMBERED BUOYS. YOU START" 
PRINT" IN BETWEEN THE COMM. 
BOAT AND BUOY #l.tSPACE21 
END BETWEEN BOAT AND !2."; 
PRINT"GET AS CLOGE TO THE 
BUOYS AS POSSIBLE W/OUT 
HITTING THEH.TIME YOURSELF"; 

PRINT" AND TRY TO BEAT THAT 

TIME NEXT GAME." 

FOR X = n TO 2^fJ:NEXT 

iPRINT" [CLEARl " 

POKE 5^281, OiPOKE 5323fl,l 



INPUT Z 



:POKE 
;POKE 



V+23,1 
V+38,1 



20 
21 
22 

23 
24 

25 

26 

27 



PRINT"SIZE OF STEP" 

V=53248:POKE V+21,1 

:POKE V+39,2: 

:POKE V+37,5: 

POKE 2040,13 

D=100:H=15^ 

FOR N=f) TO fS2:READ Q 

:POKE 832+N,Q;NEXT 

PRINT" fSPACE35, YELLOW, SHFT N] ' 

PRINT" [SPACE24, YELLOW] W I N D 

tSPACE3,CMDR Z] " 

D=lO0:H = 15f) 

PRINT: PRINT: PRINT: PRINT 

rPRINT" fSPACEl9,RVS,RED! 1"; 

PRINT:PRINT" [SPACE24 , YELLOW, 



28 

29 

30 

31 
32 
33 
35 

39 
5fl 
55 
60 
7fi 
80 
90 



SHFT J, SHFT C2,SHFT K] [GREEN] 

COMM. BOAT" 

PRINT:PRINT:PRIN'. 

: PRINT" [SPACE29, 

PRINT:PRINT:PRIN': 

:PRINT" [SPACEIO, 

IF D<0 THEN D=25! 

IF D>255 THEN D=( 

ir H<f; THEN H=25! 

IF H>255 THEN H=( 



IT: PRINT 

RVS,RED] 3" 
IT: PRINT 

RVS,RED] 2" 
i5 



POKE V+0,H:POKE 
POKE V+R,H:POKE 

II II rp 

H= 



GET A$: IF A$= 
IF A$="H"THEN 

IF A$="J"THEN H= 

IF A$="U"THEN D= 

IF A$="N"THEN D= 

IF A$="Q"THEN PR 
:POKE V+21,e):ST0 





5 



V+1,D 

V+1 , D 

HEN 5(1 

H-2 

H+Z 

D-Z 

D+Z 

INT' 

P 



[CLEAR] 



99 GOTO 30 
100 



1,12! 



DATA 0,0,0, 

128,0,6, 

192,128 
200 DATA 30,224,192 

62,240,192,62,2 

248,224,126,248 
300 DATA 126,252,24 

126,254,248,66, 

255,240,31,255, 
310 DATA 15,255,224 



0,0, 3, 128, 0,6, 
192,0,14,192,0,14, 

,30,224,192, 
40,224,126, 

224 
0,126,252,240, 
128,128,127, 
240 
, , f 




Tiger Sprite 



rvlITCH SHAW 



PRINT"WHEN 
ON SCREEN" : 
PRINT"TYPE 
INFINITY." ; 



PRINT" 

[CLEAR, DOWN] 
POWER/PLAY 
SPRITE 
CONTEST" 
PRINT" ENTRY 
[DOWN 5] " 

STEP SHOWS 



SIZE OP 
:PniNT 

A NUMBER FROM 1 TO 
:PRINT:PRINT"TYPE Q 
TO QUIT":PRINT 
PRINT "WHEN OBJECT SHOWS ON 
SCREEN" :PHINT"PRESS U TO MOVE 

PRINT" H TO MOVE LEFT" 

: PR INT" J TO MOVE RIGHT" 

:PRINT"AND N TO MOVE DOWN" 

PRINT" [HOME,DOWN20] 

PRESS ANY KEY" :GET Z$ 

:IF Z$=""THEN 6 

PRINT" [CLEAR] ":POKE 53281,5 

:POKE 53280,0 



UP" 



10 



20 
22 



23 
24 



25 
26 

27 



V+21,1 
;POKE V+28,1 
:POKE V+38,1 



8 PRINT" [WHITE] SIZE OF STEP 

: INPUT Z 

V=53243:POKE 

:POKE V+39,8 

:POKE V+37,0 

POKE 2040,13 

PRINT" [DOWN] EXPAND SPRITE" ; 
: INPUT A$:IF LEFT$(A$, 
1)="Y"THEN POKE V+23,1 
:POKE V+29,1 
PRINT" [CLEAR] " 

IF LEFTS tA$,l)<>"Y"THEN POKE 
V+23,PEEK(V+23)AND 254 
:POKE V+29,PEEK(V+29) AND 254 
D=1O0:H=200 
REM IT'S GARFIELD 
FOR N = TO f">2:READ Q 
:POKE 8 3 2+N,Q:NEXT 

30 IP D<0 THEN D=255 

31 IF D>255 THEN D=0 

32 IF H<0 THEN H=255 

33 IF H>255 THEN H=0 



(Continued On Page flij 
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Kios corner 



Backwordsl 

For the VIC 20 
and Datassette 

by Dr. Petrie Curryfavor 

KDinpuleiini anil frolRssor of Obluscatioii 



(Ed. Note: We found diis letter stuffed undei the front door 
one day in March. Since Betsy Byrne claims the good factor 
is sane, we agreed to run yet another of his mysterious code 
programs. Once again, we take no responsibility for spelling, 
punctuation, capitaliaation, etc.) 



Hi there, Ms, LeBoId and Ms, Le Byrne I 

I Know yoU have been eagerly awaiting the NEXT 
Communication from Dr. Curryfavor, and Here it Is I 
Brilliant old Dr. Cunyfavor comes through Again with 
another Mysterious and baffling Code Book! He was 
going to give it to the C,i, A. to replace their stodgy old 
Codes that everyBody knows already, but when he saw 
the wONdErful backwards letters program by Karen 
Pierce in your winTer issue, he decided that you should 
have it instead. Obviously, you have More of the proper 
Spirit! Great Minds running on the same Track! 

Of course, cunning old Dr. Curryfavor 's program is 
very different from Ms, Pierce's program; hers PRINTs 
the LETTERS backwards, while "BACKWORDS!" 
PRINTS the WORDS and senTences backwards! Too 
bad there's not Enough RooM in an UN- expanded VIC 
to hold both of the programs at once. Hmmm. . . . 

Where Was I? Oh, yes! "BACKWORDS! " Now the rea- 
son this program is so BIG is beCause it does a lot— you 
can not only type backwards in Two different ways, you 
can also PRINT backwards on your printer (if you have 
one), SAVE your MESSage on cape, DECODE the mes- 
sage, and a few Other Things. 

On top of that, crafty old Dr. C, has added a nifty little 
AniMated title page. Let's lOOk at that first: 
100-180 

Dr. Curryfavor has Heard that there is SomeThing 
called "VIC 20 proGramming." yoU may have noticed 
that there is Not much memory in your Un-eXpanded 
VIC— so we VIC 20 ProGrammers Must "crUNch" our 
programs to fit. The routines in these lines give some 
examples of "Curryfavor Crunches" (No, it is NOT a 
BteakFast cereal!) 

lOOk at line 100 and the DATA statements in Lines 



610 and 620 — see how Three lines can Do the work of 
Seven? This can save Quite a Bit (no Pun UNintended) 
of memory. We are also using One animation Routine to 
manipulate two $tring$, MID$(BW$,22-B,1) will PRINT 
one letter from BW$, and 22-B is the number of the letter 
it wiU PRINT. There are six blank spaces at the Front of 
BW$ and B goes from 6 TO 15, so 22-B starts counting 
from 16 TO 7. TAB(B) Starts the PRINTing from the Left 
(columns 6 through 15.) See how 22-B gets SMAller 
when B gets bigGER? Now, at the Same Time, right 
after we PRMT MIDS(BWS,22-B,1), we PRDsIT ME>$ 
(BW$,7,15-B). This means that we Start PRINTing BW$ 
Beginning at letter 7 ("B" or " !") and PRINT one less 
letter each time (15-B takes the letter oFF oF the righT 
enD oF thE worD. Lines 150 and 160 change the vari- 
ables to keep the animation going (did you know that 
- 1* - 1= 1? And !'-!=- 1?) IF you hit any key, line 
170 will send you out of the LooP, but you may have to 
wait a few seconds ! 

170 
Where it sends you, is to the "Vacuum Cleaner" in 
line 170! This routine eMpT/s out the inPut buffer so 
that the key you hit doesn't PRINT in line 240. 

200 
Here is wHere we CLeaR out our variables, and DI- 
Mension our aRrAy. This is a two DIMensional aRrAy 
which will hold data for 19 lines of Up to 23 characters 
(number 23 is for a carriage RETURN, if necessary.) 
210-240 
This is the Main Menu. No Mysteries here! 

250-280 
IF your choice was "1", then we "Default" to the val- 
ues in line 250. IF "2" was your choice, we change those 
to the values in line 260. If you 100k at line 330, and 
study the results of using the different StringS, Helpful 
old Dr. Curryfavor thinks you will see whY the "SECRET" 
mode only PRINTs One letter at a time in the UPper LEft 
comer, IF 1=3 THEN we GO TO the "UTILITIES MENU." 
290-380 
This is the Main LooP, where you eNter your MES- 
Sage. Line 300 has the counters for the two DDvIensionS 
in our array— IF there are more than 22 keystrokes, we 
add a line (A= A- 1) and re-set B to the First Letter of the 
new line (lOOk at line 350), Be sure to hit RETURN when 
you get near the end of a line Oust like a typewriter), or 
the print-Out will lOOk strange. IF there are more than 
18 lines, THEN line 310 sends us to the "FILE FILLED" 
warning, so plan your MESSage carefully. 320 is our 
' "ESCape Clause' ' ; Any time you want to GO TO the 
■ ' UTILITIES MENU", hit the left arrow key. 
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Line 340 is our DELete routine. Yes, the DELete key 
does work in this program! Do you see how it sub-tracts 
from the array? Line 350 builds the array, You can think 
of it as a Gnd, just like the screen display — with rows 
(A) and columns (B). IF you press RETURN, THEN in 360 
we start a new line (BeGlnning in the Left column, and 
Adding a new line.) THEN we GO TO the ■'DISPLAY" 
SUBroutine . . . 

390-410 

. . . which is right here [ 100k at how the array is DIS- 
PLAYed backwards! We start with the hiGHest numbers 
of both rows and columns I 

430 

This line waits for you to hit the left arrow key, which 
will let you fall through to the. . . 
440-500 

. . . UTJLITIES MENU! Line 470 allows you to start a 
new MESSage, but gives you a chance to change your 
Mind! Line 480 allows you to CONTINUE your entry 
(does line 280 make sense now?) 490 handles the jobs 
of fiVe IF . . . THEN statements! CRUNCH! CRUNCHI 

510 

This ONE line is our DECODEr! An array makes 
things very comPACTI 

520-530 

Here's our "SAVE" routine . . . and Here's our array 
again! 

540-580 

Our "LOAD" lOOks a lot like our "SAVE." NoUce 
how we set "A" for our DISPLAY routine (line 580.) Be 
Sure you have your tape positioned correctly for these 
two routines I 

590-600 

I hope you have a Printer hooked up! Otherwise, you 
will get a "DEVICE NOT PRESENT ERROR" IF you se- 
lect "3" from the UTILITIES MENU, If you don't have a 
printer yet, you had better leave these lines out for Now, 
and type; 590 RETURN, This will keep your program 
ftom "bombing" until you get your printer. 

The print-out is 22 columns wide, of course — just the 
right size to be cut out and hidden in a chewing gum 
wrapper! A Perfect way to smuggle MESSages to other 
Silicon Panther Youth Society members {S,PYS.. for 
short!) Naturally, you could also pass on a DaTassette 
tape, instead, 

NOW, to be Sure your TransIatOR is working, type 
in this MESSage from Friendly old Dr. Curryfavor: 



RnVRFVRRUC EIRTEP .RD 
ENIH BHR DNEIRF RUOV 
HORF UON RQF EVBBOOG 
JHIJF EVHH IFLESMIH 
, pnVflFVRRUC . RB 
riLO VLBHIK OT HEVE 
EBVFlM RO — SBHEIRF 
REHTHRP HOCILIS 
>Ll~iG RO':: HOLLEF 
RUOV IJT SEGflSSEn 



EBOC TERCES BHES OT 
NRRGORP SI HI ESU VAN 
UOV WON IRETUPMOC 
mo RUOV OTHI KOOB 
EBOC ROVFlFVRRUC . RB 
TSETRL EHT BERETHE 
VLLUFSSECCU3 EVRH 
UOV ISHOITRLUTRRGHOC 



Now, some people complain that unAppreciated old 
Dr. Curryfavor Never does any programs for the Coinmo- 
dore 64, Well, Dr, Curryfavor doesn't haveaSA yet, but 
he was able to borrow one for a while, so he could Tell 
you how to translate the program for it. 

To BeGin with, the 64 has More Memory and Only 
80-column proGram lines, so some of the longer lines 
need to be Broken into two lines. Line 210 should be 
le-Written as Two PRINT statements, divided between 
"**='* BACKWORDS ! * * = - " and " " " * " MAIN MENU 
* * " * ". Then, at the begirming of the program, you must 
add this line: 

10 POKE 53281,1 ;CL= 54272 
to turn the screen White. CL is the difference between 
the CoLor meMORy map and the screen memory map. 

Then, since the 64 has a 40-co!umn screen, instead 
of the 22 columns on the VIC. we should do something 
about e^ABlishing a 22-colunm MargiN, so that our 
MESSage will be "transportable" to your fellow S.P.Y.s' 
VIC 20's. One way to do that is like this: 
285 FOR M= 1046 TO 2006 STEP40:POKE M,101:POKE 

M+CL.2:NEXT 
which will draw a vertical Red line on the screen that 
will be the enD of your page. Be careful not to type past 
it! You could also add a MarGin BeU, like In "IGPAY" 
from the SprinG issue of Power/P/ay, I'll bet yoU could 
even figure out an EDiting routine and a Routine that 
would preVent you from tyPing more than 22 CHaRac- 
ters.Tryit! 

If you have aNy problems with this program. Please 
let amiable old Dr Curryfavor kNOw about them. And. 
if you would Rather Not type the program in yourSelf , 
send $3,00 with a blank Tape or Disk and a S,A,S.E, to: 

Dr, PeTtie Curryfavor 

Co Eddie Johnson 

2928 Tennessee NE 

Albuquerque, NM 87110 

Checks or Money Orders should be made out to Eddie 
Johnson, Dr, Curryfavor is mad at the Bank and Won't go 
in there any more! 

Well, that's It for This issue, but Keep in touch— com- 
ing Up soon aRe some more Secret Code Books from the 
CryptoGraphic ReSearch Labs of your friend and Mine, 

Dr. Peine Curiyfumr. 
Cryp toman ia cand 
Professor of Obfusca tion 

Listing on next page 



POWER/PLftY June/July 1984 79 



Backwords 




1 REM ***** BACKWORDS; ***** 

2 REM BY DR. CURRYFAVOR, 1984 

3 REM 2928 TENNESSEE ME, 

ALBUQUERQUE, NM 8711fl 505) 
299-1662 

4 REM DO NOT TYPE IN REM 
STATEMENTS OR PROGRAM WILL * 
NOT * RUN! ! 

100 PRINT" fCLEARl "; :FOR P=l TO 7 

JREAD S:READ D$ 

iPRINT TAB ([£)D$: NEXT 
110 BW$ = '' [SPACER] BACKWORDS! 

[SPACEf^l":Z=-l 
120 PRINT" [ HOME, RVS, MAGENTA] "BW$ 

:POH T=l TO 999:NEXT 
130 FOR B=5 TO 15:PRINT" [HOME, 

BLUE,RVOFP] *'TAB(B)MID$(BW$, 

22-B, 1) " [MAGENTA, RVS] 

"MID$CBW$,7,15-B) 
140 FOR T=l TO 99:NEXT:NEXT 

;FOR T=l TO 999:NEXT 
150 2=Z*-1 
160 IF Z=l THEN BW$=" [SPACE6] 

!SDR0WKCAB[SPACE6] ":GOTO 120 
170 GET B$:IF B$<>""TUEW 190 
180 GOTO 110 

190 FOR V=l TO lOiGET V$:NEXT 
200 CLR:DTM W$ { 19 , 23) : A=] 
210 PRINT" [CLEAR, RVS] 



** * k 



BACKWORDJ 



* ** * 



[SPACE2] 



220 



2 30 



24G 
250 
260 

270 

280 



**** MAINrSPACE2]MENU **** " 
PRINT" [DOWN] SELECT NUMBER" 
: PRINT" [DOWN] AND PRESS [RVS, 
RED] RETURN [ RVOFF, BLUE] " 
PRINT" [DOWN] (1) SECRET 
ENTRY": PRINT" [DOWN] 
(2) VISIBLE ENTRY" 
:PRrNT" [DOWN] (3) UTILITIES 
[DOWN] " 

INPUT I: IP Kl OR I>3 THEN 
210 

S$ = " [MAGENTA, RVS, HOMEl " 
:RS=" [BLUE, RVOFF] " 
IF 1=2 THEN S$=" [MAGENTA, RVS] 
" :R$=" [BLUE, RVOFF] " 
IF 1=3 THEN 440 
PRINT" [CLEAR] " ; 



290 

300 
310 
320 
330 
340 

350 
36 

370 
380 
390 

4f)n 
410 

420 

433 



44 
450 

460 

470 



480 
490 

500 
510 



520 



J=7 THEN GOSUB 390 
AS: IF A$=""THEN 290 



B=1:A=A+1 



THEN 440 



C=A TO 1 
1 STEP-1 



/^J5^ 



:IF 

GET 

B=B+1:IF B>22 THEN 
IF A>18 THEN 4 20 
IF A$=" [BACK ARROW] 
PRINT S$A$R$; 
IF A?=CHR$(20)THEN W${A, 
B-1)="":A$="" 
W$(A,B)=A$ 

IF A$=CHR$(13)THEN B=0:A=A+1 
:GOSUB 390 

IF A$=CHR$ ( 32)THEN GOSUB 390 
GOTO 290 

PRINT" [CLEAR] " : FOR 
STEP~1:P0R D=22 TO 
PRINT W$ (CD) ,- 
NEXT: NEXT: PRINT" [HOME] "; 
, : RETURN 
PRINT" [DOWN, RED, RVS, LEFT] 

FILE FILLED [BLUE, RVOFF] 
PRINT" [HOME, RVS, MAGENTA] 

* PRESS [BACK ARROW] 

FOR MENU * [BLUE]";:GET 
:IF K$<>" [BACK ARROW] 
"THEN 430 
PRINT" [CLEAR, RVS] 

BACKWORDS UTILITIES: " 
PRINT" [DOWN] (1) SAVE" 
: PRINT" [DOWN] 
: PR I NT" [DOWN] 
: PRINT" [DOWN] 
PRINT" [DOWN] 
: PRINT" [down; 
: PRINT" [DOWN] 
[DOWN] ": INPUT 
IF J=5 THEN INPUT"[CLEAR,RED, 
RVS] ZAP MEMORY [BLUE, RVOFF] 
";J$:IF JS="Y"THEN 200 
:GOTO 443 
IF J=7 THEN 210 
ON J GOSUB 520,540,590,390, 
510: GOTO 4 30 
GOTO 440 

PRINT" [CLEAR] ": FOR C=l TO 19 
:POR D=l TO 23:PRINT W${C,D); 
:NEXT:NEXT:RETURN 
INPUT" [CLEAR] SAVE" ;F$ 



KS 



(2) 
(3) 
(4) 
(5) 
(6) 
(7) 
J 



LOAD" 
PRINT" 
DISPLAY" 
DECODE" 
DESTROY" 
CONTINUE 
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iOPEN 1,1, 2, FS 




STEP-1:F0R D=23 TO 1 STEP-1 


530 


FOR C=l TO A:FOR D=l TO 22 




:PRINTgl,W$(C,D) ; 




:PRINTitl,W$(C,D) ; : NEXT: NEXT 


603 


NEXT:NEXT:PRINTtl :CLOSE 1 




:CLOSE 1:RETURW 




: RETURN 


540 


INPUT" [CLEAR] LOAD";F$ 


^10 


DATA 94,"C0DE[SPACE21B00K",4, 




:OPEN 1,1,0,F$ 




" [DOWN] ENCRYPTION BY 


550 


FOR C=l TO 19: FOR D=l TO 22 




:",0,"fDOWN]DR. PETRI E 




:GETiU,G$:W$(C,D)=W$(C,D)+GS 




CURRYFAVOR," 


563 


IF GS=""THEN 530 


62(1 


DATA 3,"REVERSI0NIST AND", 5, 


570 


NEXT: NEXT 




"[DOWN] PROFESSOR OF", 4," 


580 


CLOSE 1:A=C+1: RETURN 




[DOWN) RECIPROCATION. " , 71 , 


59fl 


OPEN 1,4:CMD 1:F0R 0=19 TO 1 




"HIT ANY KEY" 



IVpelefter 

Editors: 

I was afraid of ttiis! You did have to go and encourage Dr. 
Curryfavor by publisfiing one of his "un-word processors" in 
the Spring issue and now look what happens! I thought I had 
safely hidden my VIC 20, but he found it anyway. At any rate, 
this latest exercise in absurdity was again addressed to you, 
and was left to me to handle the mailing. Doesn't it seem to 
you that a published author ought to provide his own post- 
age, at least? 

I decided after looking at Dr. Curryfavor's message on 
my printer, that 1 would write my own decoder program for 
it. Thus, TYPELEFTER— a program simple enough for even 
an adult to type in! After all, I have much more serious things 



Tiger Sprite (Commued From Page 77) 



35 
39 

50 
55 
6f) 
70 
8fl 
90 

95 

100 

110 

120 

130 

140 

15-1 



POKE V+0,H:POKE V+1,D 
POKE V+0,H:POKE V+1,D 
GET AS:IF A$=""THEN 50 
IF A$="H"THEN H=H-Z 

A$ = "J"TiiEN 

A$="U"THEN 

A$="N"THEN 



IF 
IF 
IF 
IF 



H=H+Z 
D=D-2 



D=D+Z 

A$="Q"THEN PRINT" [CLEAR] 
END 



:POKE V+21,0 

GOTO 30 
DATA 2,8,0 
DATA 1,13 4,0 
DATA 10,170,54 
DATA 10,170,128 
DATA 4 3,239,iri0 
DATA 25,231,144 



to do than to copy in a big, complicated program like 
BACKWORDS! 

Of course, TYPELEFTER doesn't have all the features 
that Dr. Curryfavor's BACKWORDS! has, but it does have a 
"backwards carriage return" {lines 120-130), and will trans- 
late any backwards writing into a sensible form. It starts 
printing from the bottom right corner of the screen and 
moves left as you type, and up one line to the right hand 
column if you hit RETURN. 

In closing, I should probably warn you that the indefatiga- 
ble Dr. Curryfavor is threatening fo send more code games 
to you in the near future. You have my sympathies. C 

kcul dooG 
nosnhoJ eiddE 



1 RE!^ **** TYPELEFTER **** 130 

2 REM BY EDDIE JOHNSON, 1984 

3 REM 2928 TENNESSEE NE, 140 

ALBUQUERQUE, NM 87110 505) 
299-1S62 150 

100 PRINT" [CLEAR]"; :X=252:y=253 
110 GET A$:IF A$=""THEN 110 160 
120 P=POS{X) :Z=2-P 



IF A$=CHR${13)THEN A$="" 
:Y=Y-FZ:IF Y<0 THEN Y=0:X=X+2 
X=X-1:IF X<0 THEN X=0:Y=Y-1 
:IF Y<0 THEN Y=0:GOTO 100 
PRINT" [HOME] ";SPC(X) ; 
SPCCY)A$; 
GOTO 110 




230 DATA 4 2 , m b , i b w 
240 DATA 21,105,84 
250 DATA 42,170,160 
260 DATA 26,170,160 

DATA 10,170,144 

DATA 1,137,36 

DATA 2,138,10 

DATA 10,70,129 

REM AGE GROUP C:12 TO 18 (14) c 



270 
283 
290 
300 
310 
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Catapult 

For Unexpanded 
VIC and Datassette 

by Joseph Bedard 

Hyde Paik, Mas&nchuBous 



I am 17 years old and attend Boston Technical High 
School, I started programming about a year ago. I taught 
myself how to program by looking at other programs — 
I got most of my knowledge that way. 

In my game, "Catapult", you are Prince Valiant — and 
are fighting for your life against a fire-breathing dragon. 
Your only weapon against Sindar (the dragon) is a cata- 
pult, which has three distance settings. Prince Valiant 
must run to the rock bin at the left of the screen, bring 
a rock back to load the catapult and fire it at Sindar. 

The prince must hit the dragon squarely on the head 
before Sindar gets the idea and goes away. No one ever 
said that dragons are the brightest beasts around — so 
Valiant must hit Sindar once in the head at level one, 
twice at level two, three times at level three and so on. 
Meanwhile, Sindar's fire is destroying the brick wall that 
is Valiant's only protection, so hurry up with those rocks! 

The "Z" key will move the prince leftward to the rock 
bin, the "C" key takes him back to load the catapult. 
"Fl" launches a long shot, "F3" a medium range shot 
and "F5" a short toss over the wall. 



Automatic Load from Disk 

For those of you using a VIC 20 with a disk drive, here 
are the changes you must make to "Catapult Loader" 
and "Catapult". 

Lines 200 to the end of "Catapult Loader" perform 
some fancy footwork to automatically load the "Catapult" 
program from the tape. We can make this work for a disk 
drive by changing line 200 to: 

200 LOAD "CATAPULT", 8 

Now we must add a line to the program because nor- 
mally you can't load a big program &om a small program. 
Add the following line to "Catapult": 

1 POKE 45,PEEK(174) : POKE 46,PEEK{175) 
When you now run "Catapult Loader", it wiU automati- 
cally load and run "Catapult" from disk. 



Catapult Loader 



5 REM*********************GRAPHI 
CS*FOR ************ CATAPULT ***** 

1(1 PRINT" [CLEAR] ": POKE 51,0 
:POKE 52,28:POKE 55,0 
:POKE 56,28:CLR:CB=716S 

20 READ A: IF A=-l THEN 200 

30 FOR N=0 TO 7: READ B 




02 
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:POKE 

DATA 
255,1 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
17,25 
DATA 
DATA 
7 

DATA 
207 
DATA 
12n,l 
DATA 
100 DATA 
110 DATA 
255 



4Q 

45 
50 
55 

60 
65 
70 
75 

80 
85 

90 

9 5 

96 



CB+A*8+N,B:MEXT:G0TO 20 
0,255,129,255,155,165, 
29,255 

1,24,24,64,56,24,42,68,32 
2,24,24,2,28,24,84,34,4 
3,0,0,0,0,24,35,36,24 
4,0,0,0,28,226,6 5,255,255 
5,96,112,8,4,2,1,255,255 
6,3,3,1,1,1,1,255,255 
7,72,255,18,255,136,255, 
5 

8,0,0,92,171,116,0,0,0 
9,0,6,13,118,128,241,126, 

10,36,109,255,0,193,2,60, 

,197,57,2,4, 



11,134,131 

28 

12,9 5,86,4 
3 2,0,0,0, 
13,1,7,15 



5,22,8,17,46,55 

0,0,0,0,0 
,63,63,127,127, 



120 DATA 14,128,240,248,248,252, 

252,254,255 
130 DATA 15,255,255,255,255,255, 

255,255,255 
135 DATA 16,0,0,1,7,15,31,31,63 
140 DATA 17,0,0,128,224,240,248, 

248,252 
145 DATA 18,6 3,31,31,15,7,1,0,0 
150 DATA 19,252,248,248,240,224, 

128,0,0 
155 DATA 20,16,31,22,29,22,29,22, 

29 
160 DATA 21,16,240,208,112,208, 

112,208,112 
165 DATA 22,25,29,17,17,42,63,32, 

5 3 
170 DATA 23,216,156,16,16,168, 

248,3,248,-1 
200 PRINT" [CLEAR, HOME] " 

POKE 19B,5:POKE 631,78 
POKE 632,69:POKE 533,87 
POKE 634,13:POKE 535,131:END 



Catapult 



REH*****CATAPJLT***** 81 

BY JOSEPH BEDAKD 85 

2 PRINT" ICLEAR, HOME] " 85 

:POKE 36879, 8;G0SUB 5000 

5 QA>C=QAX+1 

10 PRINT" [CLEAR, HOME!" 87 

:POKE 36879, 8:G0SUB 2000 90 

20 ON M GOTO 40,70 

30 M=1:G0T0 20 95 

40 A%=PEEK(197) sIF A%=33 THEN 

A=A~1:MA=1:DI=1 100 

45 IF PEEK (A) =0 THEN A=A+1:R=1 
:ZT=3 

50 IF A%=34 THEN A=A+1 :MA=2 :DI=-1 110 

55 IF PEEK(A)=4 AND R=l THEN R=0 

:M=2:ZT=3 2 120 

60 IF PEEK (A) =4 THEN A=A-1 

65 POKE A,MA:POKE A+C , 1 

:POKE A-21,ZT:P0KE A+C-21,4 

:POKE A-21+DI,32:POKE A+DI,32 125 

:GOTO 150 130 

70 IF S=l THEN 95 150 

71 A%=PEEK{197) :IF A%=39 THEN 155 
F=8022:GOTO 85 150 

75 IF A%=47 THEN F=8043:GOTO 85 

80 IF A%=55 THEN F=8054:GOTO 85 170 



FOR W=l TO 3 
36876, S6:Q=Q+1 



36876,0 
;Q=~21 



GOTO 150 

POKE 36878,15 

S=1:CA=8149:Q=4; 

:POKE CA,Q:POKE 

:S6=S6+20 

POKE CA+C,4:NEXT:P0KE 

POKE 35878,5:RO=CA-2 2 

:S6=201 

IF RO=F THEN Q=2 3 

:POKE RO+21,32 

POKE R0,3:P0KE RO+C, 4 

:POKE R0-Q,32:P0KE A, MA 

:RO=RO+Q 

IF PEEK{R0)=7 THEN RO=CA-22 

:M=1:S=0:F=0:POKE 8149,4 

IF PEEK(R0)=9 OR PEEK(R0)=12 

THEN POKE 36878,15 

;POKE 36876, 241:Z=Z-1:Z1=Z1+1 

:POKE 35876,0 

POKE 35878,5 

IF Z1=QAX THEN 5000 

ON N GOTO 160,200 

N=1:G0T0 150 

IF Sl=fl THEN DR=INT(RND(1) *5) 

+8155 

POKE DR,9:P0KE DR+1,10 



(Continued On Next pBge) 
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:POKE DR+2,11:N=2 
200 POKE DR+C,5:P0KE DR+1+C,5 

:POKE DR+2+C,5:IF Sl=l THEN 

210 
205 POKE DR,12:FB=DR-1:S1=1 

:H1 = HH-1 
210 POKE 36877, S5:P0KE FB,8 

:POKE FB+C, 2:P0KE FB+1,32 

:FB=FB-1:P0KE DR,9:S5=S5-5 

215 IF PEEK(FB)=7 AND U1>Z THEN 
POKE FB, 32: POKE FB+C,0 
:POKE FB+1, 32:FB=DR-1 :S1=0 
:H1=0:Y=Y+1 

216 IF X>0 THEN 218 

217 IF Y=3 THEN X=3129:G0SUB 3300 

218 IF Y=6 THEN 5010 

220 IF PEEK{FB)=7 THEN POKE FB+1, 

32 :FB=DR-1;N= 1:51=0:55=230 
225 IF PEEK{FB)=3 THEN POKE FB+1, 
32 :FB=DR-1:N=1: 51=0: 5 5=239 
:H1 = 
230 IF N=l THEN POKE DR,32 

:POKE DR+l,32:POKE DR+2,32 
23 5 GOTO 20 
2008 POKE 3r,869,255 

:PRINT" [CLEAR] " 
2010 PRINT" [UP, SPACE12, YELLOW] PQ 

[SPACES] " 
2020 PRINT" [UP, SPACE12, YELLOW] RS 

[SPACES] " 
2025 PRINT 
2030 PRINT" [UP, SPACE12, MAGENTA] 

MN [GREEN] VW[MAGENTA,SPACE5) 

2035 PRINT" [UP, SPACE11]M00N 

[GREEN]TU[MAGENTA,SPACE5] " 

2040 PRINT" [UP,SPAC£10]MOOOOOOW 
[5PACE4] " 

2045 PRINT" [UP, SPACE6, WHITE] VW 

[MAGENTA] MOOOOOOOON [SPACE3] 

2050 PRINT" [UP,SPACE4]MN[WHITE] 

TU [MAGENTA] MOOOOOOOOOON 

[SPACE2] " 
2055 PRINT" [UP,5PACE3] 

MOOOOOOOOOOOOOOOON " 
2060 PRINT" [UP, SPACE2] 

MOOOQOOOOOOOOOOOOOON" 
2065 PRINT" [UP] MOOOOOOOOOOOOOOO 

OOOOOMOOOOOOOOOOOOOOOOOOOOO" 
2070 PRINT" [UP) 00000000000000000 

000000000000000000000000000" 
2072 ZT=32:C=3072fl:FOR A=7998 TO 

8185:POKE A,32:POKE A+C,0 



:NEXT 
2085 FOR A=8164 TO 8185:POKE A, 7 

:POKE A+C,2:NEXT 
2090 POKE 8142,0: POKE 8142+C,7 

:POKE 8149,4:POKE 8149+C,4 
2095 FOR A=8129 TO 8131:POKE A, 7 

:POKE A+C,2:NEXT 
2100 FOR A=8151 TO 3153:POKE A, 7 

:POKE A+C,2:NEXT 
2110 M=D:N=C:A=8148:MA=1:S5=230 

:POKE 36873, 5:S6=201:Z=10 

:Y=O:Z1=O:X=0 
2125 RETURN 
3000 POKE X,32:POKE X+C , 

POKE X+l,32:POKE X+1+C,0 
POKE X+2,32:POKE X+2+C,fl 
POKE X+22,7 
3010 POKE X+22+C,2:POKE X+23,7 

:POKE X+23+C,2:POKE X+24,7 

:POKE X+24+C,2:RETURN 
5000 IF Z1=QAX THENiPOKE 36877,0 

: PRINT" [H0ME,RVS,D0WN12, 

RIGHT, WHITE]NEXT LEVEL" 

:F0R WTR=1 TO 7500:NEXT 
5005 GOTO 5020 
5010 POKE 36878, 0:POKE 35877,0 

: PRINT" [H0ME,RVS,D0WN12, 

RIGHT, GREEN] GAME OVER" 

:FOR WTR=1 TO 7 500 : NEXT: RUN 
5020 S=0:Y=O:X=O:51=0:FB=O:GOTO 5 
600 POKE 36869,255 

: PRINT" [CLEAR , HOME , D0WN6 , 

RIGHT5,RVS,RED] CATAPULT" 
6010 C=30720:FOR A=8154 TO 8185 

iPOKE A,7:P0KE A+C,2:NEXT 
6020 PRINT" [DOWNS, RIGHTl 2, YELLOW] 

P0[DOWN,LEFT2] R5[RIGHT9, 

D0WN3,WHITE] VW[D0WN,LEFT2] 

TU[HOME] " 
6030 A=8159:DR=8161:FOR Z=l TO 16 
6032 POKE A,1:P0KE A+C,l 

POKE DR,9;P0KE DR+1,10 
POKE DR+2,11:P0KE DR+C, 5 
POKE DR+1+C,5 
6034 POKE DR+2+C,5:P0KE A+1,32 

:P0KE DR+3, 32:A=A-1:DR=DR-1 
6040 FOR Y=l TO 250 : NEXT : NEXT 
6050 POKE A+1,21:P0KE A+1+C,l 

:FOR Y=l TO 50OO:NEXT 
6060 Z=0:Y=0:A=0:DR=0:RETURN C 
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Student Software: 

Who 

Owns What 
a Student 
CiBates? 



by Alfred Fan t, Jr. 



In an academic setting, determin- 
ing who owns intellectual property 
can be a rather thorny issue. Should 
the student owii all the proprietary 
rights to a program he or she creates 
using school-owned computers? 

On the one side of the terminal, we 
have the student spending weeks of 
classroom time developing a program 
for a semester project grade. This 
programmer makes full use of the 
provided resources: teacher guid- 
ance, debugging tools, qomputer 
manuals and the like. And then, if the 
program is a commercial success, 
the student sells the software. This 
"software" consists only of typed 
words upon sheets of paper. What 
rights (if any) does the school have 
to the distribution and profits of 
such programs? 

Some schools claim that since 
the program could not have been 
developed without the investment 
capital in computer resources, the 
program's profit should be returned 
to the school. After all, the student 
programmer has already received 
a reward — an academic grade. The 
primary purpose of school is to award 
grades, not proprietary rights to pro- 
grams developed during class time 
on school-owned facilities. Appar- 
ently, this is the position of many 
universities and colleges. 

Such assignment of proprietary 



rights for computer programs is 
unclear from a legal standpoint. 
As the May, 1983, issue of Physics 
Today noted: 

U The law distinguishes between 
two types of intellectual prop- 
erty — patents and copyrights. 
Patents rely on originality and nov- 
elty, whereas for copyrights the 
idea itself doesn 'thave to be orig- 
inal, only the rendition or expres- 
sion of the idea. In 1979theU.S. 
Supreme Court ruled that soft- 
ware I comp uter progra ms ] could 
not be patented; it has not yet 
ruled on exactly hov\r software 
should be treated. || 

Since many schools are now re- 
quiring computer science course- 
work for graduation, this is a program 
which needs to be addressed. In the 
high school where I teach, for example, 
five student programs were seriously 
reviewed by various microcomputing 
magazines. Two programs were finally 
purchased. The S175 00 received was 
given totally to the student authors. 
Perhaps not surprisingly, this was 
also the first year computer science 
became a required subject in the 
student curriculum. 

I would like to suggest the follow- 
ing policy toward such student- 
written programs. Remember, this is 
only a suggested policy — it is not set 
in concrete. The private and public 
school sectors would welcome your 
suggestions and comments. 

Student Computer 
Program Rights 

Whenever a computer program is 
created by a student using school- 
owned equipment, the following 
policies are recommended: 

1. The student program should 
include a personal copyright state- 



ment and the name of the school/ 
institution embedded in the actual 
program code, 
example; 

copyright 1984 by John A, Doe 
Hyde Park Baptist High School 
3901 Speedway/ Austin TX 78751 
This notice would give the student 
protection from unscrupulous com- 
mercialism. Someone might steal a 
copyright from a student author, but 
they would probably hesitate stealing 
a program from a school. 

This notice would also give the 
school valuable public relation bene- 
fits. Such PR can be quite helpful in 
securing monetary grants. 

2. The school/institution could 
have free, unlimited use of the pro- 
gram for educational purpose al- 
though the school could not sell or 
otherwise distribute copies of the 
program without the author's permis- 
sion. Thus, the student would actu- 
ally own the rights to the program, 

3, All profits from the program 
would go to the student. It is sug- 
gested that the student voluntarily 
return 10% of the profit to the school/ 
institution. The school board would 
decide how to best utilize this 10%'. 
For instance, it could be used to buy 
more computer equipment or it 
could be returned to the student. C 
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How 

to Submit 
Things to 
Kids' Corner 



Programs: 

Must be sent on 

disk or tape, 

dearly marked 

with computer 

type and your 

name, address, 

and PHONE 

NUMBER. If 

your program is 

for the VIC, mark 

the label with the amount of memory 

you had plugged in when you saved 

the program. Send a printout (listing) 

if you can, and BE SURE that your 

disk or tape is mailed in a PADDED 

protective envelope. Tapes should be 

in a mailing case, disks between two 

pieces of stiff cardboard. Protective 




Betsy Byrne 



envelopes are found at office supply 
Stores for around 25 cents. They're 
worth it[ 

Articles, Stories, Poems, etc: 
Should be typed or computer prmted, 
double spaced, each page numbered, 
and headed with the title and author's 
name, address, and phone number. 
I can, if absolutely necessary, accept 
text that is neatly hand printed on 
every other line, each page numbered 
and headed as described above. 

Photographs : Color or black and 
white, preferably 35mm. Taped or 
otherwise attached to a stiff piece of 
paper or cardboard (but make sure 
they can be removed without damag- 
ing them). Label the paper with 
some type of caption, the name(5) of 
the person[s) pictured, and the name, 
address, and phone number of the 
sender. (School pictures are just fine.) 

Drawings: Black and white 
might be best; at least outline things 
in a dark color if you can. Make them 
big enough that details will show if 
they have to be reduced. If you are 
sending a cartoon, print the captions 
in the balloons very carefully, or get 
someone who is really good at print- 



ing to do the words for you. Mail 
them using the same directions as 
for photographs. 

If you are sending a program, don't 
forget to include the directions! It's 
a good idea to have them right in the 
program if you can. Be sure to keep a 
copy of everything you send. I might 
need to call you about it, and unfor- 
tunately, I can't send anything back. 
If you have already sent something in 
and didn't see it in this issue, remem- 
ber that we have to get Power/Play 
ready for printing almost THREE 
months before you read it I If some- 
thing you sent is going to be in the 
magazine, you will probably get a 
phone call from me before you see it 
in prmt so don't forget to include your 
AREA CODE and phone number. 

Even if you are sending a drawing, 
photo or program, write something 
that tells a little bit about YOU. Don't 
forget to send a picture of yourself! 

The address to send things to is: 

COMMODORE KIDS 
&o BETSY BYRNE 
6209 LESLIE PLACE NE 
ALBUQUERQUE NM 87109 C 



GiegMavko 
Edmonton, Alberta 



WORLD LINSUSTIC 

coNVE^f^o^^ 

f984 




WORLD LINGUISTIC 
CCKVENTION 

1964 
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Borderline and 
Type Setter 






by Richard K. Stare 



The 1525 graphic printer can be useful for 
many things besides listing programs and 
printing letters. The following two programs 
are an interesting way to expand that usefulness. 



Borderline 

"Borderline" is a poor man's way to distinctive statio- 
nery using the VIC 1525 graphic printer. Written to run 
on a VIC with at least 3K expansion, "Borderline" is a 
simple, malleable program that dot-programs the printer 
to generate a border around a page of tractor paper. For 
the purpose of example, the listing given is already set 
up to produce a photographic motif — little cameras, 
shown front and side view, are printed around the edge 
of the paper using this version. However, you can mod- 
ify it to produce any design you like. 

Despite its length, the program is essentially nothing 
more than a few simple repetitive operations. Twenty- 
six characters are built up and stored in string variables 
during the first 41 lines of the program. The rest of the 
program fits the variables into a pattern a line at a time 
and then prints the line. The pattern, placement of 
character variables, character data requirements and 
data Ime numbers relating to the variables are shown 
in Figures 1 and 2. 

Modifying the program for different character designs 
is a simple matter. The first step is the art work. Using 
a fine-grid graph paper, mark off the character variable 
borders in the manner of Figure 1. Now create a design 
within the confines of the layout. Keep in mind that the 
character sizes are fixed; altering the sizes would neces- 
sitate a restructurmg of the entire program. 

Inserting the design into the program requires some 
thought and a little effort. Referring to Figure 1, deter- 
mine the binary value for each column of the character 
variables. For example, in the camera design illustrated 
in Figure 1, column one of character variable BAS is 255, 
column two is 255, column three is 131 and so on for 
12 columns, the length of the character. See the 1525 
printer manual or the VIC 20 Progiammei's Reference 
Guide for full details on binary conversion. 



• • «•.•_•_•.•.•.•. ••• ••••••• 

• «•••,•_•.• ••• •• •••••■•• 

• ••••••••• • ••••••• • • 

*••• ••••••• •••• ••••••• 

*• •* •••••••••••• •••••••••• 

•.•.•.•-• • • • • • • • • •••••••••••• 

**'* ** .** •* •• •• •••• 

• ••• •• •• • • • a 

• • • • • • • • • • • • •••«•••••••• 

9 9 9 •• •# ••• 

•^ ••••••••••• •••••••• • • • • 

• •••••••••• ••• ••••••• • 

• • •••••••• • • •••••••••• • • 

**** ••••••• ••■•••••••• 

• ••••••••••• •••••• ••■••• 

•» •• •••••••• ••■•• • • • • • • • 

• •■•••••••••a •••••• • • • • • • • 

• ••••••••• • • •••••••••• 

•••••• • • • • • • • • • ••••••• 

• • •• •• •••• •••• •••••• 

**•»* • ••••• ••••• •••••• 

•.• • • • •••••••••••••• ••••• 

•**»* ••••••••••••••• ••••• 

• 9 • • « • • • • • 

•••*,•.•- «•-• • • • • • • 

• ••••• •••••• 

•_•_• 9 9 9 •••••• 

• ••••••••••••••••••••••• 

• ••••••«••••••••••••••• 

• ••••♦ •• •••••••• 

• ••••••• ••••••• • 

• •••••••••••••••••••• • 

• • ••••••••••••••••••• •• 

Figure 2 gives the program line number of the data 
statement defmmg each character variable for entering 
a new design. For example, once the binary values for 
BAS are knowm, you can refer to Figure 2 to see that 
program line number seven should be replaced with 
the new data statement reflecting this data. When the 
data has all been entered test run the program and 
check for errors. 

To lengthen or shorten the border just add or subtract 
steps from line 58. To decrease the width subtract one 
or more steps from the FOR-TO loops that construct 
the master strings Pl$, P2S, P3$, and P4$ and decrease 
the dot address given in variable SPS by 23 for each 
step deleted. 

Type Setter 

In order to facilitate data development for the "Bor- 
derline" program, I wrote another program, titled "Type 
Setter". Since the 26 characters used requires 309 binary 
numbers to define them it is helpful to have a program 
that does the figuring. 

"Type Setter" is an aid to generating character data 
for the VIC 1525 graphic printer in graphic mode. The 
idea is similar to Commodore's custom character tape 
but with a few twists. Designed for the VIC, it requires 
a minimum of 3K to operate. 

Input to the program is via screen and joystick, but 
with modification a light pen can be substituted for the 
joystick. The screen work area consists of three seg- 
ments, each representing 18x7 dots. Dots are set or 
unset by positioning the cursor with the joystick and 
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Figure t. 

Borderline Character Designing 
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Figure 2. Borderline Charactei Data 



Character Size and Program Line No. 



Page Line No. 


Cliaracter Placing 


1-4 


Space 


5 


BA$+ 19*(CA$+ BM$) ' CA$H BD$ 


6 


BBS - 19- (CBS* BNS)- CB$ - BES 


7 


BCS+ 19* (BOS -t- BP$)-(- BOS 1 BF$ 


8 


CES-SPS-f CCS 


9 


CF$ ' SP$+ CDS 


10 


Y1S-SPS-' Y3$ 


11 


Y2$* SP$'-Y4$ 


12-91 


Lines 8-11 repeated 


92 


BG$+ 19'{CAS-^ BMS) i CAS-t- BJ$ 


93 


BH$ t- 19" (CB$+ BN$)^- CBS+ BKS 


94 


BIS+ 19"(B0StBPS)-hB0S+ ELS 


95-99 


Space 



Note: 99 lines to the page (SVz x.n inch paper). 

pressing the fire button. Function commands are turned 
on or off when the cursor is over the first letter of the 
command at screen bottom and the fiie button is 
pressed. Moving the cursor to one of the numbers to the 
left or right of screen and pressing the fire button will 
activate whichever command is on at the time^ Com- 
pletion of a command cycle turns that command off, 

Program output is contained within the program 
itself. Prior to a run, blank data statements using the 
format illustrated in lines 101 to 103 are entered into 
the program. Upon activation of the save command, the 
designated segment is scanned, converted to printer 
binary, the first available data blank located and the 
binary data POKEd into the blank. To use the data, delete 
the program body as well as the last two bytes (.0) of 
each statement. The data statements can then be manip- 
ulated and merged with the intended program. Obvi- 
ously, the Programmer's Aid cartridge will simplify 
the procedure. 

"Type Setter" notes: 

Lines 1 to 3 compute the location of the first blank data 
statement for any memory configuration. If the program 
is modified so that it is shorter, the value added to K to 
define U must be changed. Lengthening the program 
wrill only increase the time it takes to complete the 
first save. 

Line 11 prevents the program from reading the fire 
button too soon after an entry. 

Lines 25 to 33 are the delete function. 

Lines 35 to 43 convert data scanned feom the screen to 

printer binary. 

Lines 45 to 48 locate the first available blank data 
statement with 47 ending the program should all state- 
ments be full. 

Lines 49 to 51 POKE the printer data into the located 
data statement. 

Lines 101 to 103 should be duphcated as needed. The 
extra comma is a result of the way the data is POKEd in. 
The extra zero is to remind that the comma is there. 



Char. 


X 7 Dots 


HAS 


12 dots 


CAS 


19 dots 


BMS 


4 dots 


BD$ 


12 dots 


BBS 


12 dots 


CBS 


19 dots 


BN$ 


4 dots 


BE$ 


12 dots 


BC$ 


12 dots 


B0$ 


19 dots 


BP$ 


4 dots 


BF$ 


12 dots 


CE$ 


12 dots 


CCS 


12 dots 


CFS 


12 dots 


CDS 


12 dots 


YIS 


12 dots 


Y3S 


12 dots 


Y2S 


12 dots 


Y4S 


12 dots 


BGS 


12 dots 


BJS 


12 dots 


BHS 


12 dots 


BK$ 


12 dots 


31$ 


12 dots 


BL$ 


12 dots 



Data Stat. 

Lme 7 
Line 1 
Line 19 
Line 10 
Line 8 
Line 2 
Line 20 
Line 1 1 
Lme 9 
Line 22 
Line 21 
Line 12 
Line 5 
Line 3 
Line 6 
Line 4 
Line 23 
Line 25 
Line 24 
Line 26 
Line 13 
Line 16 
Line 14 
Line 17 
Line 15 
Lme 18 



Note: SP$is dot address forrighthand border 



Borderline 



1 


DATA 240,232,232,232,240,240, 




180,154,137,137,137,154,180, 




248,240,232,232,232,240 


2 


DATA 255,255,255,255,255,199, 




204,215,238,208,238,216,204, 




199,255,255,255,255,255 


3 


DATA 248,248,248,248,136,252, 




242,233,137,234,244,184 


4 


DATA 159,159,159,159,144,191, 




255,223,192,223,255,128 


5 


DATA 184,244,234,137,233,242, 




252,136,248,248,248,248 


6 


DATA 128,255,223,192,223,255, 




191,144,159,159,159,159 


7 


DATA 255,255,131,131,243,147, 




147,147,131,129,192,160 


8 


DATA 255,255,128,128,255,128, 




128,128,128,255,128,128 


9 


DATA 191,159,128,128,135,128, 




128,123,128,128,129,130 


10 DATA 16«, 192, 129, 131, 147, 147, 




147,243,131,131,255,255 


11 DATA 128,128,255,128,128,128, | 




128,255,128,128,255,255 



nr) 
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12 DATA 130,129,128,128,128,128, 
128,135,128,128,159,191 

13 DATA 254,252,128,128,240,128, 
128,128,128,128,192, 160 

14 DATA 255,256,128,128,255,128, 
128,128,128,255,128,128 

15 DATA 255,255,224,224,231,228, 
228,228,128,128,129,130 

IS DATA 150,192,128,128,128,128, 
123,240,128,128,252,254 

17 DATA 128,128,255,128,128,128, 
128,255,128,128,255,255 

18 DATA 130,129,128,128,228,228, 
228,231,224,224,255,255 

19 DATA 160,192,192,160 

20 DATA 128,255,255,128 

21 DATA 130,129,129,130 

2 2 DATA 132,13f>,136,13G,13ri,136, 

132,132,130,133,130,132,132, 
136,135,136,136,136,132 

23 DATA 128,144,152,140,130,226, 
254,224,123,128,128,128 

24 DATA 144,136,132,130,129,128, 
143,128,129,130,132,136 

25 DATA 128,126,128,128,224,254, 
226,130,140,152,144,128 

25 DATA 136,132,130,129,128,143, 
128,129,130,132,136,144 

27 SP$=CHR$(27)+CHR$(16)+CHRS(1) 
+CHR$C212) 

28 FOR 1=1 TO 19: READ A 
CA$=CA$+CHR$(A) :MEXT 
FOR 1=1 TO 19:READ A 
CB$=CBS+CHR$ (A) :NEXT 

29 FOR 1=1 TO 12:READ A 
:CC$=CC$+-CHR${A) :NEXT 
:FOR 1=1 TO 12:READ A 
:CD$=CD$+CtIR$CA) : MEXT 

33 FOR 1=1 TO 12: READ A 
:CE$=CE$+CHRS (A) :NEXT 
:FOR 1=1 TO 12:READ A 
:CF$=CF$+CHR$ t A) : NEXT 

31 FOR 1=1 TO 12:READ A 
:BA$=BA$+CHR$ (A) :NEXT 
:FOR 1=1 TO 12:READ A 
:BBS=Ba$+CHH$(A) :NEXT 

32 FOR 1=1 TO 12: READ A 
:BC$=BC$+CHR$(A) : NEXT 
:FOR r=l TO 12:READ A 
:BD$ = BD$^-CHR$ (A) :NEXT 

3 3 FOR 1=1 TO 12:READ A 
BE$=BE$+CHR$CA) :NEXT 
FOR 1=1 TO 12:READ A 
BF$=BF$+CHR$CA) :NEXT 

34 FOR 1=1 TO i2:READ A 



:BG$=BG$+CHR$(A) :NEXT 
:FOR 1=1 TO 12:READ A 
:BH$=8HS+CHR$(A) :NEXT 

35 FOR 1=1 TO 12:READ A 
:BI$=BI$+CHR$(A) :NEXT 
:FOR 1=1 TO 12:READ A 
:BJS=BJ$+CHR${A) :NEXT 

36 FOR 1=1 TO 12: READ A 
BK$=BKS+CHRS(A) :NEXT 
FOR 1=1 TO 12: READ A 
BL$=BL$+CHR$(A) :NEXT 

37 FOR 1=1 TO 4: READ A 
:BM$=BM$+CHR$(A) :NEXT 
:FOR 1=1 TO 4:READ A 
:BN$=BN$+CHR${A) :NEXT 

38 FOR 1=1 TO 4:READ A 
:BO$ = BO$+CliR$(A) :NEXT 

39 FOR 1=1 TO 19:READ A 
:BP$=BPS+CHR$(A) :N£XT 

40 FOR 1=1 TO 12:READ A 
:Y1$=V1$+CHR$(A) : NEXT 
:FOR 1=1 TO 12:READ A 
:Y2$=Y2$+CHRS(A) :NEXT 

41 FOR 1=1 TO 12:READ A 
:y3$=Y3$+CHRS(A) :NEXT 
:FOR 1=1 TO 12:READ A 
:Y4$=Y4$+CHRS(A) :NEXT 

4 2 OPEN 3, 4: FOR J=l TO 4 
:PRINTi}3,CHR$(8) :NEXT 

43 FOR 1=1 TO 5:P1S=P1$+CAS+BM$ 
NEXTiFOR 1=1 TO 5 
P2$=P2$+CAS+BM$:NEXT 
FOR 1=1 TO 5:P3$=P3$+CA$+BM$ 

;NEXT 

44 FOR 1=1 TO 4:P4$=P4$+CA$+BM$ 
:NEXT 

45 PRINT#3,CHRS(8)BA$P1$P2$; 

46 PRINT#3,P3$P4$CA$8D$ 

47 Pl$="" :P2$="":P3$="":P4$="" 

48 FOR 1=1 TO 5:P1$=P1S+CB$+BN$ 
:NEXT:FOR 1=1 TO 5 
:P2$=P2$+CB$+BN$:NEXT 

:FOR 1=1 TO 5:P3$=P3S+CB$+BN$ 
:NEXT 

49 FOR 1=1 TO 4:P4$=P4$+CB$+BN$ 
:NEXT 

50 PRINT#3,CHR$(8)BB$P1$P2$; 

51 PRINTif3,P3$P4$CB$BE$ 

52 P1$="":P2$="":P3S="":P4$="" 

53 FOR 1=1 TO 5:P1$=P1S+BP$+B0$ 
: NEXT: FOR 1=1 TO 5 
:P2$=P2$+BP$+BO$:NEXT 

iFOR 1=1 TO 5:P3$=P3$+BP$+BO$ 
:NEXT 

54 FOR 1=1 TO 4:P4$=P4$+BPS+BO$ 
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:NEXT 


70 


FOR 1=1 TO 5:P1S=P1$+CB$+BN$ 


5 5 


PRINTS3,CHRS(8)BC$P1$P2$; 




:NEXT:FOR 1=1 TO 5 


56 


PRINTvt3,P3$P45BP$BF$ 




:P2S=P2$+CB$+BN$:NEXT 


57 1 


P1S=" " : P2$=" " : P3$=" " : P4$=" " 




:FOR 1=1 TO 5:P3S=P3$+CB$+BN$ 


53 I 


="0R U=l TO 21 




:NEXT 


59 1 


PRINT!}3,CESSP$CC$ 


71 


FOR 1=1 TO 4:P4$=P4$+CB$+BN$ 


60 1 


'RINT#3,CF$SPSCD$ 




:NEXT 


61 I 


3RrNT)!3,Yl$SP$Y3$ 


72 


PRINTi|3,CHR$(8)BH$Pl$P2$; 


62 PRINT#3,y2$SPSY4S 


73 


PRINTS 3, P3$P4$CB$BK$ 


63 NEXT 


74 


Pl$="" :P2$ = "":P3S = '"':P4$ = "" 


64 Pl$="" :P2$="":P3$="":P4$="" 


75 


FOR 1=1 TO 5:P1S=P1$+BP$+B0$ 


65 FOR 1=1 TO 5:P1$=P1S+CA$+BM$ 




:NEXT:FOR 1=1 TO 5 




NEXT: FOR 1=1 TO 5 




:P2$=P2$+BP$+BO$:NEXT 




P2$ = P2$+CA$ + BiVl$:NEXT 




:FOR 1=1 TO 5:P3$=P3$+BP$+BO$ 




FOR 1=1 TO 5:P3$=P3$+CA$+B«$ 




:NEXT 




NEXT 


76 


FOR 1=1 TO 4iP4$=P4$+BP$+BO$ 


66 FOR 1=1 TO 4:P4$=P4$+CAS+BM$ 




:NEXT 


4 


NEXT 


77 


PRINT|3,CHR${8)BI$P1$P2$; 


67 PRINTJt3,CHRS(8)BGSPl$P2$; 


78 


PRINT#3,P3$P4$BP$BL$ 


68 PRrNTft3,P3$P4$CA$BJ$ 


79 


FOR U=l TO 4:PRINT|3:NEXT 


69 P1$="":P2$="":P3S="":P4$="" 




: CLOSE 3 



Type Setter 



DD=37154:PA=371 
:DIM BI (17) :DA= 
W=INT(PEEK(43) ) 
:Y=INT{PEEK(44) 
L=W-IWT(W) :C=L* 
:D=0*16:P=Y-INT 
:M=Z-INT(Z) :F=M 
G=C*1 :H=D*i6:I= 
:J=F*(16*16*16) 
:U=K+2242 
SC=4095;CC=3788 
PEEK(36869)AND 
:CC=384RC 
POKE 36879, 8: PR 
:FOR 1=1 TO 21: 
RVS, WHITE, SHFT 
POKE 3C+66,49:P 
!POKB SC+87,49: 
:POKE SC+155,99 
:POKE SC+174,99 
POKE CC+174,1;P 
POKE CC+22fl,l: 
POKE CC+241,1: 
POKE CC+3fl9,l 
POKE SC+328,99; 
:POKE SC+374,51 
:POKE SC+395,51 



37:PB=37152 

101 

/16;G=INT(W)/16 

)/16iZ=INT(Y)/16 

16:0=G-INT(G) 

(Y) :E=P*16 

*15 

E* (16*16) 

:K=G+H+I+J 

8:IF 

32 THEN SC=7680 

INT" [CLEAR}"; 
PRINT" [SPACE2, 
013,RVOFF]":NEXT 
OKE CC+66,1 
POKE CC+87,1 
:POKE CC+155,1 

OKE SC+220,50 

POKE SC+241,50 
POKE SC+330,99 

POKE CC+328,1 
:POKE CC+374,1 
:POKE CC+395,51 



9 POKE SC+463,99:POKE CC+4G3,1 
:POKE SC+482,99:POKE CC+432,1 
PRINT" [ DOWN, SPACE 2 , RVS , WHITE] 
S [ RVOFF] AVE [ SPACE 2 , RVS ] D 
[RVOFF] ELETE[SPACE2,RVS]Q 
[RVOFF] U IT [HOME] " 
FOR 1=1 TO IfiHiNEXT 
GOSUB 52:PE=PEEK(LO) 
:IF PE>128 THEN POKE LO,PE-128 
:GOTO 14 
POKE LO,PE+128 

IF FR. AND PE=25f! THEN PE = 170 
LO,PE:GOTO 11 
AND PE=17G THEN PE=250 
LO,PE:GOTO 11 
AND PE=147 THEN PE=19 
LO,PE:GOTO 11 
PE=19 THEN PE=147 
LO,PE:GOTO 11 
PE=132 THEN PE=4 
LO,PE:GDTO 11 



10 



11 
12 



13 
14 

15 

16 

17 

18 



:POKE 
IF FR 
:POKE 
IF FR 
:Q=1:P0KE 
IF FR AND 
:Q=f!:POKE 
IP FR AND 
:QQ=1 :POKE 



19 IF FR AND PE=4 THEN PE=132 
:Q0=«:POKE LO,PE:GOTO 11 

20 IF FR AND PE>48 AND PE<52 
THEN GOSUB 23 

21 IF FR AND PE=145 THEN POKE 
36879, 27: PRINT" [CLEAR, BLUE] 



(Continued On Next Page) 
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:END 

22 POKE L0,PE:G0TO 12 

23 IP Q=n AND QQ=fl THEN RETURN 

24 IF Q>0 TflEfJ 31 

25 IF PE=49 THEN 28 
7S-> IF PE=50 THEN 30 

27 IF PE=51 THEN 32 

28 PRINT" [HOME] "; :FOR 1=1 TO 7 
: PRINT" [RIGHT2,RVS, WHITE, 
SHFT 018,RVOFF] " ;NEXT 
:POKE SC-H92,132 

29 OQ=f?: RETURN 

30 PRINT" [HOME, DOWNS ] " 

:FOR 1=1 TO 7:PRTNT" [RIGHT2, 
RVS, WHITE, SHFT fil8,RV0FF]" 
:NEXT;POKE SC+492,132 

31 QQ=n: RETURN 

32 PRINT" [HONE, D0WNI31 " 

:FOR 1=1 TO 7:PRINT" [RIGHT2, 
RVS, WHITE, SHFT (318,RV0FF]" 
:NEXT:POKE SC+492,132 

33 QO=0: RETURN 

34 V=l :B(0) =V:FOR 1=1 TO 6:V=V+V 
:BCI) =V: NEXT: POKE 50+48^, ,147 
:POR 1 = TO 17:BI (I) =():NEXT 

35 IF PE=49 THEN 38 
3'S IF PE = 50 THEN 40 
37 IF PE=51 THEN 42 

33 FOR Y=0 TO 6:I=n:F0R X=2 TO 19 
:IF PEEK(SC+X+22*Y)=17n THEN 
Bl (I)=BI (I)+B(Y} 

39 I=I+1:NEXT X:NEXT Y 

:FOR 1=0 TO 17:BI(I) =BI (I}+128 
:NEXT:GOTO 44 

40 FOR Y=7 TO 13:1=0 
:FOR X=2 TO 19:IF 
PEEK(SC+X+22*Y) =170 THEN 
BI (I) =BI (I) +B {Y-7) 

41 I=I+1:NEXT X:NEXT Y 

:FOR 1=0 TO 17:BI(I)=BI{I)+12a 
:NEXT:GOTO 44 

42 FOR Y=14 TO 20:1=0 
:FOR X=2 TO 19:IF 
PEEK(SC+X+22*Y) =170 THEN 
BI (I) =Bi(I)+B{Y-14) 

43 I=I+1:NEXT X:NEXT Y 

:FOR 1=0 TO 17:BI(I)=BI(I)+128 
: NEXT: GOTO 4 4 
4 4 Q=0 

45 IF PEEK(U-3)=DA AND 
PEEK(U~2)=0 AND PEEK (U-1 ) =1 31 
AND PEEK(U}=48 THEN 49 

46 IF PEEK{U-3)>DA AND 
PEEK{U-2}=0 AND PEEK(U-1)=131 
AND PEEK{U)=48 THEN 



DA=PEEK(U-3) :GOTO 49 
47 IF PEEK(U-3)=0 AND 

PEEK(U-2)=fl AND PEEK(U-1)=0 

THEN PRINT" [KVS] DATA FULL 

[RVOFF] ":END 
43 U=U+1:G0T0 45 

49 FOR 1=3 TO 17 : N$=STR$ ( BI( I ) ) 

50 FOR 11=2 TO 4:NN$=MID${N$,II, 
1):P0KE U,ASC(NN$) :U=U+1 
:NEXT II 

51 POKE U, 44:U=U+1 :NEXT I:DA=DA+1 
: RETURN 

52 EP=PEEKC37139) rPOKE 37139,0 

53 POKE DD,127:S3=-( CPEEK(PB}AND 
128}=0):POKE DD, 255 : P=PEEK { PA) 
:Sl=-'{ (P AND O}=0) 

:S2={ CP AND 1G)=0) 

54 r>0={ (P AND 4)=0) 
:FR=-((P AND 32) =0) : X=S2+S3 
:Y=SO+S1:POKE 37139, EP 

55 X1=X1+X:IF X1<0 OH Xl>21 THEN 
X=X*-1:G0T0 55 

S''! Y1 = Y1 + Y:IF YKO OR Yl>22 THEN 

Y=Y*-1:GOTO 5(3 
57 L0=SC+XH-22*Y1:RETURN 

101 DATA 000,00^,380,000,000,000, 
000,000,000,000,00 0,000,000, 
000,000,000,000,000,0 

102 DATA 00,000,000,000,000,000, 
00,9 0,000,0 00,000,000,0 00, 
000,000,000,000,000,0 

103 DATA 000,000,000,000,000,000, 
00 0,000,0 00,000,000,000,000, 
000,000,000,000,000,0 c 
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computer tutor 



int Gothic or Bold 



on Your VIC 1525 Printer 

by Brent Miller 



A few months ago I saw something written in gothic 
and I wondered if it was possible to program my VIC 
1525 printer to print out a gothic set, After some think- 
ing and playing around I discovered a very easy way to 
do this. This program allows anyone to type in a letter 
or whatever and, by pressing the desired function keys, 
have the printer print it out in either gothic. bold or 
standard as single- or double- width characters. 

Before I go any further, I should briefly describe how 
the VIC 1525 prints out user-defined characters. The 
printer can print a maximum height of only seven dots 
but the width is unlimited. The easiest way to get the 
data for the characters is to start with a grid that is 
seven dots high by eight or nine wide. Then number 
along the right side of the grid from the top to the 
bottom as follows; 



•+- 



1 I 



I •/, I 



+ 



+ 



I 



1 



2 I 



I K I 



4 I 
+- 



I 'A i 



-^- 



-+■ 



8 I X I X I X I 



+ 



+ 



■4- 



I X 
H 



16 



I X I 



32 I 



H h 

1 X I 



64 I 



I 



+ 



I 



-+ 



R B C D E F G H 
You can see that this is a graph of the standard letter 
"A". The next step is to add up each vertical row. In this 
case, row A is 2+ 4- 8+ 16+ 32+ 64= 126. Now add 128 
to this number and you get 254, This is the first data 
number for the letter "A". Continue the process for the 
next eight columns [I chose eight columns instead of six 
in order to create the bold set). The final data statement 
for the letter "A" is: DATA 254, 137, 137, 137 254, 0, 0, 0. 

Now the way in which the data must be sent to the 
printer is: read the data one at a time: take the chrS of 
the number; add all of these up; open a channel to the 
printer; print chrS(8) to put the printer in the graphic 



mode and print the variable containing the information. 
Here is an example: 

10 FOR 1=1 TO 8 

20 READ X 

30 XS = XS-^ CHR$(X): REM IF DOUBLE WIDTH ADD 

CHR$(X) AGAIN 

40 NEXT I 

50OPENl,4:PRINT#l, X$ 

99 DATA 254, 137, 137. 137, 254, 0, 0. 

Although this will print out only the letter "A", if you 
redesign the graph to be another character, then that 
character will be printed out. 

Now that you understand how to print out user- 
defined characters, we will go to the two problems I 
encountered in writing this program. The first problem 
was how to take in the characters that the user prints 
on the screen and not to accept some of them, like the 
CLEAR/HOME key. 

The easiest way I found to do this is to use the GET 
statement and if tlie character was a legal one (one that 
needs to be printed) then print it to the screen and add 
one to the array of characters. This way, everything that 
is typed is stored in an array, say x$(x). If the word "it" 
was typed, then x$(l)= "i" andx$(2)= "t". 

Lme 212 shows how to print all of the characters in 
memory on the screen with the use of a loop. When the 
computer is in the execution mode the cursor is off. To 
turn the cursor on you must POKE zeros into locations 
204 and 207 which will keep the cursor blinking most, 
but not all, of the time (line 140). 

Now that we have the characters stored in an array 
how do we determine which set of data to print out 
for each character? My first thought was 26 IF/THEN 
statements that would test the character in the array to 
see if it equaled "A", "B". "C". etc, .. Then print out the 
corresponding data for that character. Well, the only 
problem with this method is that it would probably take 
an hour to print out a short letter! So I had to think of 
some other way to do it. I finally came up with a method 
that works almost as fast as printing out standard 
characters! 

To do the program I noticed that the ASC code of let- 
ters A-Z was 65-90. The whole key to the program is to 
initially read the data into an array starting at 65 and 
ending with 90. Let's say that we read the data into the 
array gt${i) as "i" goes from 65 to 90, Now all the data 
for the letter "A" isingt$(65) and aB the data for "Z" is 
ingt${90). 

Let's say the characters that the user typed in 
went into the array x$(m), where "m" is the number 
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of characters that were typed in. If the word " it" was 
typed, x${l)= "i" and x$(2)== "t". If we take the ASG value 
of x$(l) we would get the value for "1" which is 73. All we 
need to do now is use the 73 as the array index of gt$(i) 
and send this to the printer, which wiU print gtS(73) — 
the data corresponding to "i". The actual print state- 
ment would look like this: 

10FORX=1TOM 

20 PRINT#1,CHRS(8)GT$(ASC(XS{X))) 

30 NEXT M 

This will print the corresponding data for aU the 
characters that were typed, By first checking the ASC 
codes of the characters we can determine if the special 

Figure 1. 

Custom Characters on the 1525 Printer 

THE FOULOWXNG XS 1MB 
/sO-PHftBI^T XN THSK DIFFERENT 
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WAS PRINTED ON THE VIC~1525 
PRINTER.. DOES IT ?! 

BUT IT SURE i^AS! ! ! 



data for that character should be sent to the printer or if 
the character itself should be sent. For example, num- 
bers are not changed in the gothic set that I designed 
and therefore can be sent to the printer directly, In the 
program, this is done on lines 480-540. 

If you are wondering why the data statements have 
fifteen numbers, this is because 1 put all the data for 
both the gothic set and the bold on the same line. On 
lines 20-90 are the READ statements and the variables 
used are: 

gt$(i)= = > Gothic single width 

dg$(i)= => Gothic double width 

bo$(i)= => Bold single width 

db$(i)= => Bold double width 
The first seven numbers are for the gothic set, while the 
other eight numbers are for the bold set. 

In using the program, if you are unsure at anytime 
about what is on the screen press the F2 key. This will 
show you what is in memory at this time. To delete a 
character use the DELETE key because the cursor keys 
are turned off. The line across the top of the screen has 
a "B" and a "G" on it. This is used to determine one 
line of print on the printer in the single width mode. For 
example, the "B" is about halfway on the screen, which 
means that one and a half lines of print equal one line of 
bold print on the printer. The same holds true for the 
gothic set. 

The nice thing about this program is that anyone can 
now write a custom set of data and replace this data 
with their data. The next project is to combine this pro- 
gram with a powerful word processor to make it even 
easier to use' Figure 1 is a sample of the different type 
styles. Have fun! ! C 



Gotbii/Bold 



1 


REM PROGRAM PRINT FONTS BY 




BRENT MILLER 


5 


PRINT" [CLEAR] PLEASE WAIT. ., " 


10 


DIM X$(1000) , DG$(90) , 




DB$(90) , GT$(90) , BO$(90) 


20 


FOR 1=65 TO 90 


30 


FOR J=l TO 7 


40 


READ GT:GT$(I)=GT$a)+CHR$(GT) 




: DG$ { I ) =DG$ ( I) +CHR$ {GT) -«-CHR$ 




(GT) 


50 


NEXT J 


60 


FOR J=l TO 8 


70 


READ B0:B0$(I)=B0$(I)+CHR$(BO) 




: DB$ ( I ) =DB$ { I ) -^CHR$ ( BO) -«-CHR$ 




(BO) 


80 


NEXT J 


90 


NEXT I 


95 


PRINT" [CLEAR] F2 - PRINTS OUT 




DOCUMENT 0N[SPACE18] 




THE SCREEN." 


96 


PRINT 


97 


PRINT"F7 - PRINTS DOCUMENT ON 
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THE [SPACE18] PRINTER, 265 

BUT DOES NOT" 

98 PRINT" [SPACES] CLEAR IT FROM 
MEMORY." rPRINT 270 

99 PRINT"P8 ~ CLEARS THE 
DOCUMENT FROM [SPACE16] MEMORY." 

100 PRINT;PRINT" [RVS] 28e 
PRESS ANY CHARACTER TO BEGIN 290 
[RVOFF] " 

110 M=l 295 

120 GET I$:IF I$=""THEN 120 300 

130 PRINT" [CLEAR, RVS] BEGIN 

: [RVOFF] ":HD=0 305 

135 FOR F=l TO 40 : PRINT" [ RVS) " ,- 319 
:NEXT F:PRINT"[UP] 315 

"TAB (20) "B"TAB(3R) "G" 320 

lAO PRINT;PRINT:POKE 204,0 330 
iPOKE 2O7,0:POKE 53280,0 
:POKE 53281, 0:B=1:D=1 340 

150 GET X$(M):IF X${M)=""OR 

X$(M)=" [UP] "OR X$(M)="[DOWN] 

"OR X$(M)=" [RIGHT] 350 

"OR X$(M)=" [LEFT] "THEN 150 

160 IF ASC(X$(M) ) >31 AND 

ASC(X$(M) )<128 THEN PRINT 360 
X$(M) ; :M=M+1:G0T0 150 

170 IF ASC(X$(M) )>159 AND 370. 

ASC(X$(M) )<192 THEN PRINT 
X$(M) ; :M=M+1:G0T0 150 380 

180 IF ASC(X$(M) )=13 THEN PRINT 390 
X$(M) ; :M=M+1:GOTO 150 400 

185 HD=fl 410 

190 IF PEEK (197) =0 THEN PRINT" 420 
[LEFT] [LEFT] "; :HD=1:M=M-1 4 30 
:IF M<1 THEN M=1:G0T0 130 440 

19 5 IF HD=1 THEN 150 450 

230 IF X$(M)=" [F7] "THEN 240 460 

210 PRINT" [CLEAR] ": FOR F=l TO 40 
: PRINT" [RVS] "; :NEXT F 
;PRINT" [UP] "TAB(20) "B"TAB(30) 
" G " : 470 



212 


FOR X=l TO M:PRINT X$(X); 
:NEXT X 




220 


IF X$(M)="[F8] "THEN M=l 






:GOTO 130 


480 


230 


GOTO 150 




240 


PRINT" [RVS, CLEAR] 


^ 




WHAT PRINT SETTINGS DO YOU 


490 




WANT? [SPACES] ": PRINT: PRINT 




250 


PRINT" [RVS, SPACE 3] 






Fl - SELECT CHARACTER SET 


500 




[SPACE10] ":PRINT 




260 


PRINT" [RVS, SPACE 3) 






F3 - SELECT WIDTH [SPACE18] " 


510 




:PRINT 





PRINT" [ RVS, SPACE3] 

F4 - RETURN TO EDIT,[SPACE16] " 

:PRINT 

PRINT" ( RVS, SPACE3] 

FS - PRINT 0UT[SPACE21] " 

: PRINT: PRINT 

GET ZZ$:IF ZZ$=""THEN 280 

IF 2Z$="[F1] "THEN B=B+1 

: IF B>3 THEN B=l 

IF 2Z$=" [Fl] "THEN 330 

IF ZZ$=" [F3] "THEN D=D+1 

:IF D>2 THEN D=l 

IF 22S="[F3] "THEN 360 

IF ZZ$=" [FS] "THEN 380 

IF ZZ$="[F4] "THEN 210 

GOTO 280 

IF B=l THEN PRINT" [RVS, UP, 

SPACE2] STANDARD SET":GOTO 280 

IF B=2 THEN PRINT" [RVS , UP, 

SPACE2]B0LD SET[SPACE4]" 

:G0T0 280 

IF B=3 THEN PRINT" [RVS , UP, 

SPACE2]G0THIC SET[SPACE2]" 

:GOTO 280 

IF D=l THEN PRINT" [RVS, UP, 

SPACE2] SINGLE WIDTH" :G0T0 280 

IF D=2 THEN PRINT" [ RVS , UP, 

SPACE2] DOUBLE WIDTH" :G0T0 280 

REM ***PRINT ROUTINE*** 

OPEN 1,4 

IF{B=1) AND(D=1)THEN 460 

IF(B=1) AND(D=2)THEN 470 

IF(B=2) AND(D=1)THEN 480 

IF(B=2)AND(D=2)THEN 510 

IF(B=3) ANDtD=l)THEN 540 

IF(B=3) AND(D=2)THEN 570 

FOR X=l TO M:PRINT#1, 

CHRS(15)X$(X) ; iNEXT X 

:PRINTH,CHR$(13) :CLOSE 1 

:GOTO 210 

FOR X=l TO M:PRINT#1, 

CHRS(14)X$(X) ; :NEXT X 

:PRINTn,CHR$(13) :CLOSE 1 

:GOTO 210 

FOR X=l TO M:IF 

A3C(X${X) )>64 AND 

ASC(X$(X) )<91 THEN 500 

PRINT#i,CHR$(lS)X$(X) ; iNEXT X 

:PRINT#1,CHR$(13) :CLOSE 1 

:GOTO 210 

PRINT#1,CHR$(8)B0$(ASC(X$(X) ) 

);:NEXT X:PRINT#l,CHR$(i3) 

:CLOSE 1:G0T0 210 

FOR X=l TO M:IF 

ASC(X$(X) ) >64 AND 
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ASC(X${X))<91 THEN 530 9020 

52fl PRINTnrCHR$(14)X${X) ; ;NEXT X 
:PRINT|1,CHR$(13) :CLOSE 1 
:GOTO 210 9022 

53 B PRINTI1,CHR$C8)DBS(ASC(X$(X) ) 
);:NEXT X: PRINTIt 1 # CHR$ { 1 3) 
:CLOSE 1:G0T0 210 9024 

540 FOR X=l TO M:IF 

ASC(X$(X} ) >64 AND 

ASC(X${X))<91 THEN 560 9026 

550 PRTNTftl,CHR$(15)X$(X) ; :NEXT X 
:PRINT#1,CHRS(13) :CLOSE 1 
:GOT0 210 90 28 

560 PRINTil,CHR$(8)GT$(ASC(X$(X) ) 
);:NEXT X: PRINT#1 ,CHR$ ( 13) 
:CLOSE 1:G0T0 210 9030 

570 FOR X=l TO M:IF 

ASCCX${X) )>64 AND 

ASC(X$(X))<91 THEN 590 9032 

580 PRINTn,CHR$(14)X$(X) ; :NEXT X 
:PRrNT|l,CHR$(13) :CLOSE 1 
:GOTO 210 9034 

590 PRINTItl,CHR$(8}DG${ASC{X$(X) ) 
) ; :NEXT X: PRINTU , CHR$ ( 1 3) 
:CLOSE 1:G0T0 210 9036 

9000 DATA 194,185,149,146,148, 

184,192,224,252,158,155,155, 
158,252,224 9038 

9002 DATA 221,170,201,201,201, 

182,128,255,255,235,235,235, 
255,182,128 9040 

9004 DATA 156,162,221,193,197, 

15 2,128,156,19 0,227,227,227, 
227,162,128 9042 

9005 DATA 255,162,193,193,162, 
156,128,2 55,255,227,2 27,227, 
227,190,156 9044 

9008 DATA 221,170,201,193,193, 

164,128,255,255,235,235,235, 
235,227,128 9045 

9010 DATA 201,190,137,137,129, 

130,128,255,255,155,155,155, 
131,131,128 9048 

9012 DATA 156,178,169,169,169, 

250,128,156,190,227,193,235, 
187,250,128 9050 

9014 DATA 254,137,137,201,178, 

128,128,255,255,140,140,140, 
255,255,128 

9016 DATA 196,162,162,190,162, 

145,128,128,227,227,255,255, 
227,227,128 

9018 DATA 160,208,192,192,160, 

158,129,176,240,224,224,255, 
191,128,123 



DATA 201,190,136,148,162, 

193,128,255,255,140,156,182, 

227,193,128 

DATA 192,190,193,193,194, 

19 2,160,25 5,255,224,224,224, 
224,128,128 

DATA 201,190,129,190,129, 
190,128,255,255,130,252,25 2, 

1 30 255 255 

DATA 201,190,130,188,192, 

191,128,255,255,134,140,152, 

176,255,255 

DATA 156,162,221,193,193, 

162,156,128,190,247,227,227, 

247,190,128 

DATA 201,190,137,137,137, 

134,128,2 55,255,155,155,155, 

142,142,128 

DATA 194,197,227,241,210, 

17 2,128,128,190,247,227,24 3, 

183,254,224 

DATA 201,190,137,137,145, 

230,128,255,255,155,155,155, 

255,238,128 

DATA 196,170,170,170,170, 

14 5,128,174,207,219,217,217, 

251,178,128 

DATA 154,166,154,198,194, 

198,161,128,131,131,255,255, 

131,131,128 

DATA 130,129,190,192,192, 

190,129,191,255,224,224,2 24, 

255,191,128 

DATA 130,129,150,162,193, 

161,158,135,158,184,224,184, 

158,135,128 

DATA 129,190,192,190,194, 

152,156,14 3,255,240,156,156, 

240,255,143 

DATA 194,161,146,156,166, 

193,160,128,227,247,156,156, 

247,227,128 

DATA 130,161,206,208,208, 

20 6,177,128,135,143,248,24 8, 
143,135,128 

DATA 128,225,209,201,197, 
195,128,128,227,24 3,255,239, 
231,227,128 C 
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how tOAset in touch with 
your computer. 



dumate^" Light Pen puts 

u closer in touch with your com- 

,juter than ever before. Paim a master 

^' piece, or play an interactive game simply by 
. Tioving tine pen across the screen. Compared to 
"Other graphic peripherals, the Edumate stands 
— alone. Drawing Is now easy. Because it's natural. 
;■ Just connect the Edumate and touch the screen. It's 
las simple as that. No awkward touchpad surface. No un- 
iktural joystick controls. And look what else is at hand. 
■ You can choose from a complete tine of educational and 
.ntertainment software. Our Playground Software'" series 
_.ings the magic of the Edumate together with the amazing 
jjomputer voice of S.A.M.!" the Software Automatic Mouth, so 
children can interact directly with our teaching programs. Our new 
—advanced graphics program, Peripheral Vision''"', allows you to draw 
• or fill in 16 different colors, a variety of sizes and textures, and zoom in 
■for greater detail. You can save your picture to disk, print a copy for your 
-mends, and more. What could be more natural than picking up an 
■dumate and letting your imagination run free! 



See the Edumate"-^ Light Pen 
at your local computer store or 
^ call direct 1-800-334-SOFT. Available 
for Commodore 64''" & Atari " computers, 
'lease specify computer, memory, and disk/ 
sette when ordering. 









-fut;urehouse 



P.O. Box 3470 Depariment C. 
Chapel Hill. North Carolina 27514 
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computer tutor 



Tape Tips 

by Alfred Fant, Jr. 



The bell is ringing. You have a five 
minute passing period between 
classes, but your next class is 
COMPUTERS! — and you are there in 
less than a minute. Every second 
counts and you are so anxious to get 
started programming. Your assign- 
ment (a personal adventure game 
based on nested subroutines) is not 
due for another two weeks, but . . . 
well . . . programming is so much fun. 
You can't believe it's educational! 

You pop your cassette tape into the 
tape drive, turn on the TV monitor, 
the Commodore 64 microcomputer, 
and then hastily type in the magical 
passwords of computer program- 
ming: LOAD "MYPROGRAM". You 
hit the PLAY button on the tape drive 
and you wait. Five seconds later, the 
screen says FOUND MYPROGRAM 
and you hit the space bar (or C= key) 
to begin the actual loading of the 
program into the computer. 

And then it happens . . . 

The cassette tape drive stops by 
itself and the demonical message of 
computer programming appears: 
?LOAD ERROR 
READY 

"Arrggghh! Mr. Fant, come here 
quick. . , pleezel" you cry. Your com- 
puter science teacher looks tired. 
Apparently, he has seen this same 
problem before and he offers these 
words of wisdom: "Rewind the tape, 
type in NEW, type in LOAD (by itself, 
without a specific program name), 
and try loading it again." You do, it 
doesn't, and the same demonical 
message returns to the screen to 
taunt you. 

Sound familiar? As the teacher in 
the above scenario, I see such prob- 
lems many times every day and they 



always seem to affect the same stu- 
dents. Another student using the 
same machine will have no problems 
whatsoever. Thus, it seems logically 
that most ?LOAD ERRORs are stu- 
dent dependent. In other words, it 
is usually the student's misuse of 
equipment that causes the ?LOAD 
ERRORS to appear. 

We use both tape and diskette in 
our classroom as a matter of choice. 
As one programming assignment is 
completed, the students who were 
on tape driven computer systems will 
switch to diskette driven computer 
systems. Those formerly using disk- 
ette program storage will switch to 
cassette tape program storage. This 
policy allows all the students to ex- 
perience both sequential data tape 
storage and random diskette data 
storage. It is after our switchover that 
an amazing thing becomes clear. 
The same students who bad ?LOAD 
ERRORS with the tapes tend to have 
I/O enors with the diskettes. 

"Anggghh! Mr. Fant, come quick. . . 
my tape's being eaten by this stupid 
tape recorder!" Jennifer King at sta- 
tion seven is frantically waving her 
hands, as if she's drowning in a sea 



of snarled tapes. 

"Anggghh! Mr, Fant, come quick . . . 
my program won't stop running. 
None of the keys have any effect 
anymore! " Another plaintive cry from 
John Johanson at station twelve. 

These calls for help may seem 
unique to each victim, but their 
solutions are really quite common. 
However, much of my classroom- 
inspired "keyboard magic" is not 
documented in any of the Commo- 
dore publications. The reason? These 
solutions solve many machine error 
problems, but are not foulproof. You 
can lose your program. Even so, 
these partial solutions can seem 
miraculous to those victims of their 
own sloppy programming habits. 

An Ounce of Prevention . . . 

' 'Never-never-never," I repeat to 
the students, "should you turn on 
your TV monitor with your cassette 
tape within three feet of it." Electro- 
magnetic radiations from the TV 
monitor can erase bit patterns from 
your cassette tape. The loss of even 
a little bit can render your tape pro- 
gram unreadable. This is why there 
is such a long cord between the cas- 
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sette recorder and your microcom- 
puter and why it is shielded. The 
Commodore cassette tape drive 
manua] recommends a minimum 
separation of 24 inches between it 
and the TV monitor. Place the cas- 
sette tape drive on the floor and keep 
it there. The cord is long enough to 
allow this precaution. 

"Be sure to press the REOPLAY 
buttons (not the REC/REWIND but- 
tons) on the cassette tape drive when 
you are saving a program." If you do 
accidentally press RECyREWIND, tap 
the RUN/STOP key, rewind the tape, 
advance the tape-past the leader 
and try again to save your program. 

"Always VERIFY your programs 
stored on tape before you shut the 
Commodore 64 microcomputer off at 
the end of class." If your program 
does not verify, rewind the tape and 
save it again. See your Commodore 
manual for instructions on using the 
VERIFY command. 

"Never leave your cassette tape 
drive with the PLAY button de- 
pressed when you are programming." 
Ever leave a cassette tape in a car's 
stereo system overnight? When you 
do, the tape is under constant pres- 
sure from the pinch roller, and the 
rubber pinch roller itself (over time) 
becomes deformed. This deformed 
pinch roller can cause any tape drive 
to eat your tape for breakfast. 

"Never PLAY or REC/PLAY a cas- 
sette tape before assuring all slack 
in the tape has been removed by the 
takeup reel." A simple twist of the 
finger is all it takes. If you don't 
do this, the odds are very high the 
excess tape will end up inside the 
pinch roller mechanism instead 
of where it belongs on the reel. 

"Always clearv'demagnetize the cas- 
sette tape drives at least once every 
ten hours of usage." This rule is self- 
explanatory and cleaning kits are avail- 
able at many retail electronic stores. 

"Never use the INS/DEL key to 
erase to the left of a BASIC program 
line number." If you do, the odds are 
very great you will trap your machine 
in an infinite loop. Use the two cursor 
keys at the bottom right of the key- 
board to move around on the screen. 

"Always make backup copies of 
programs that are important to you." 
Even when a program is being cre- 
ated, save a backup copy for every 
screenful of program code. 



Specific Cures 

Program In infinite loop: Press 

the RUN7ST0P key down firmly. 
LIST your program. 

Program in infinite loop — 

RUN/STOP key is frozen: Hold- 
mg the RUN/STOP key down 
firmly, tap the RESTORE key. 
LIST your program. 

Program in infinite loop — 

RUN/STOP, RESTORE keys are 
frozen: Remove your cassette 
tape from the tape drive. Holding 
the SHIFT key down firmly, tap 
the # key. Press PLAY on the 
tape drive, wait three seconds, 
and then tap the RUN/STOP key. 
LIST your program. 

Program in infinite loop — all 

keys are frozen; If you have a 
Commodore printer connected to 
the Commodore 64, cycle the 
power of the printer. Wait at least 
five seconds between turning 
the printer on/off, LIST your 
program. 

None of the above: Turn the 

Commodore 64 's power off and 
rely upon your backup tape/disk 
copy. You did save a backup 
copy, didn't you? 

7LOAD ERROR — the first, second 
and third times; Type NEW, 
rewind the tape and try again. 
If no errors, LIST your program. 

7LOAD ERROR — the fourth time; 
Thoroughly clean the tape drive 
and try again, Type NEW, rewind 
the tape and type in LOAD (by 
itself, without a specific program 
name). Observe (using the tape 
counter) the exact position of the 
?LOAD ERROR. If no errors. LIST 
your program. 

7L0AD ERROR— the fifth time: TVy 
again, but press the RUN/STOP 
key just prior to the position of 
the ?LOAD ERROR. If no error, 
LIST your program. 

?LOAD ERROR — the sixth time: 
Give it up and rely on your back- 
up copy. 
These are some of the tricks used 
in one classroom to help recover stu- 
dent programs bitten by machine 
errors. A still more powerful tool is 
my "Tape Doctor" program, which 
recovers the good data from a tape 
with a ?LOAD ERROR. Watch for a 
future article in this magazine, 
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Editing Characters 
on the 64 



by Keith Golden 



A very nice thing about the Commodore character 
set is that it can be changed. A new alphabet of italic 
or boldface print can be created, and special symbols, 
such as a degrees sign or an accent can be made. And, 
of course, the more traditional game graphics, like 
flying spaceships and bug-eyed aliens can be devised. 
Graphics can be made for shoot-em-ups, or fancy letter- 
ing for adventure games, even foreign alphabets; the 
limit is your imagination. This is possible because of 
a location in memory known as the Memory Control 
Register of the VIC chip, the lower nybble of which 
controls where VIC gets its dot- matrix for the char- 
acters it puts on the screen. By changing this location, 
we can re-program all of the 510 characters available 
in Commodore's upper and lower case character sets. 
This, of course is not exclusive to Commodore, nor is 
it privileged information that only the elite program- 
mers know. It is, however, a great source of frustration 
for many beginners who find it both difficult to calculate 
the data involved and mundane to type it in. For this 
frustration, the Programnier's Reference Guide, as well 
as many other authoritative books, is largely to blame. 
While calculating data and typing the numbers into 
DATA statements is a good technique for creating a 
very small number of characters, doing that for any 
more than ten becomes tedious and time-consuming. 
Of course, the way a true programmer deals with some- 
thing that is tedious and time-consuming is to write 
a program that does it tor him. 

Naturally, there are many good programs on the mar- 
ket that help in editing characters. You might want to 
buy one of these, or even create your own. But if you 
would rather not shell out the bucks for a professional 
character-editing program, and you don't feel quite 
up to the hours at the keyboard needed to produce your 
own, then I suggest typing in the program at the end 
of this article. 

As this program stands, it requires a joystick and a 
disk drive to use. If you don't have one of these, turn to 
the section titled Editing the Editor. The other two sec- 
tions, Using the Editor, and How it Works, should give 
you some idea of what this program can do, and how it 
is accomplished. 



Using the Editor 

upon running the program, you will be prompted with 
the question: 

SWITCH IN CHARACTERS? (Y/N) 

An affirmative answer will cause the computer to 
copy all of Its ROM characters into a special RAM loca- 
tion set aside for that purpose, Regretfully, this is a slow 
process, and you will have to wait about a minute for it 
to be completed. I suggest saving the standard charac- 
ter set on a separate disk [one that you don't plan to 
have your own special characters SAVEd on) by hitting 
'S' when the machine restores control back to you. This 
way you'll only have to "switch" the characters in once, 
because after that, you can LOAD them from your disk, 
which IS far quicker. 

When the computer has finished copying its character 
set, it sets the pointer to the new characters and clears 
the screen. It then displays all 255 characters of the 
upper-case character set (Figure 1). (Simply pressing the 
SHIFT and COMMODORE keys at the same time will 
display the lower-case characters and cause the com- 
puter to deal with these.) A solid, non-blinking "cursor" 
will be positioned m the upper left corner of the screen. 
This cursor is what you use to select your character. 
Simply position the cursor on the character of your 
choice, and hit the fire button. The screen will clear, and 
a grid (Figure 2) will appear. Moving the X cursor onto 
the grid and hitting the fire button will reverse the status 
of that particular bit (I.e. 1 = and 0= 1). This is simpler 
than using two keys to turn bits on and off, and it's 
easier to keep track of. The actual character is on the 
left of the grid, so you can watch the changes as you 
work on it. 

After your character is complete, hit the F7 key to '^ 
return to the menu. At this point you have the option 
of saving your place on disk , or LOADing a previous 
character set m. This is done by hittmg 'S' or 'L' respec- 
tively. The program SAVEs using the "SAVE with Re- 
place" feature, so you can update the character set as 
often as you like. But don't hit 'L' unless you have a set 
on disk to LOAD in, as a drive error will result that this 
program is unable to handle. 

How It Works 

There are a few features of this program that may not 
be very obvious to the layman. The first is the way the 
program is stored on disk. Line 400 POKEs a machine 
language program into memory from the DATA lines 
310 to 340. The program resides in location 49152 
(SCOOO), the beginning of RAM. The subroutine is in ML 
rather than BASIC in order to use the Kernel SAVE rou- 
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tine, which SAVEs your characters the way a machine 
language program would be SAVEd. and allows you to 
LOAD it back the same way. The main reason for all this 
is that it SAVEs the file using fewer blocks on disk, tak- 
ing less time to LOAD and SAVE, and making the whole 
process much neater and more convenient. I tend to 
dislike integrating BASIC and ML when it is not neces- 
sary, but this is a case where it is. 

In order to te-LOAD the character set, just type 
' LO AD" character setl ",8,1'. This tells the computer to 
LOAD character setl at the address pointed to by the 
headers on the disk (SCOOO). TOKE 53272, {PEEK(53272) 
AND240)-!- 12' will tell the Memory Control Register to 
get its information from your character set. Those two 
commands are all you need to type in. If the characters 
were stored in a hie, you would need a complicated 
program just to put them in memory. 

You may wonder why I didn't use the Kernal LOAD 
routine to LOAD the characters back into memory. The 
main reason is that there is no need to do so. But also, 
there is a subtlety in LOADing from a BASIC program 
that you had best be aware of if you plan to LOAD any- 
thing from a program. The best way to demonstrate this 
is to use BASIC in my program and show you how I did 
it. When BASIC encounters the command to LOAD in a 
program, it realizes (or rather the designers realized) that 
if it LOADS right over the program it's LOADing from, 
any command to RUN the program afterward won't be 
executed, and the computer will return to command 
mode, leaving the user somewhat bewildered. In order 
to make it possible for one program to call another, 
BASIC sends in a command to RUN right after a LOAD 
from program mode. This is taken a step further, and 
variables are left intact in order to aUow parameters to be 
passed from one program to the next. This makes it very 



simple for us. After we LOAD the character set from 
disk, BASIC wants to RUN it, but all it does is restart our 
program. By putting a flag somewhere Bt the beginning, 
we can direct BASIC safely back to where it left off after 
LOADing. This flag is usually In line zero or one, but you 
will find it in line 390, which is where I branched off to. 
(As you can see. I am no advocate of structured pro- 
gramming. Functional programming is about afl I can 
handle.) In line eight, the variable 'Q' is set to one and is 
tested every time the program restarts. If the result is 
true, it branches to line 12; if not, it continues. 

Editing the Editor 

Here are some tips on how to make changes in 
the editor. 

It was written for disk, but will work with tape by 
changing the fourth number of DATA in line 310, which 
should be an eight, to a one. Also change line 43 to: 

43 IF gS= "1" THEN LOAD "character setl", 1,1 

If you don't have a joystick, the lines to change are 25 
to 28 and 170 to 195, substituting the '(joy AND x)= 0' for 
'g$= "(cursor direction)" '. 1 won't show all the changes, 
because they are all pretty much the same. Also make 
similar changes for lines 41 and 220, which detect the 
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fire button. I suggest you use the space bar for the fire 
button and cursors for the various directions, but, of 
course, you may use whatever keys you want. 

The program doesn't input a file name from the user 
when it SAVEs, This is for convenience. If you want to 
have more than one file on the same disk, just incre- 
ment the last number, a 49, in DATA line 340, to 50; 
and change the file name in line 43 to "character set2". 
(50 is the ASCH code for "2") 



Of course, you may make any changes you like to this 
program. I think you will find the program simple, after 
examining it, but infinitely helpful, and I encourage you 
tomakeanychangesthat would make it more so. If you 
feel that all those characters are more than you need, 
dig in there and trim it dow^n to your size, I hops I have 
given some good pointers here for anyone who would 
like to alter this program, or make one of his own. 
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REM *** CHARACTER 
REM *** BY KEITH 
GOSUB 390 

POKE 53281, 1:P0KE 53280,1 
:REM WHITE BACKGROUND 
PRINT" [CLEAR, D0WN3, RIGHT rBLACK] 
SWITCH IN CHARACTERS? (Y/N)" 
GET AN$:IF AN$="Y"THEN 930 
IF AN$="N"THEN 3 
GOTO 5 

POKE 53272, (PEi;K{53272)AND 
2'50)+12:REM TURN ON CHR3ET 
B$="[RIGHT14] ":A$=B$+" {BLACK, 
DOWN 7] ":Q=1 
PRINT" [CLEAR] ": FOR T=0 TO 
POKE 1104+T*3,T 
POKE 55376+T*3,0:NEXT 
REM DISPLAY CHRS 
PRINT" [HOME, DOWN] [RVSIS 
[RVOFF] TO SAVE CHR SET... 
[RVS] L[RVOFF] TO LOAD" 
P=32:PO=1024 

REM BEGIN CURSOR ROUTINE 
JOY=PEEK(5fi320) 
POKE P0,P1 

1)=0 THEN Y=Y-1 

J = l 

2)=0 THEN y=Y+l 

J=l 

4)=n 



THEN X=X-1 



IF(J0Y AND 
:POKE PO,P; 
IF(JOY AND 

POKE PO,P; 

F{JOY AND 

POKE P0,P:J=1 

F(J0Y AND 8)=0 THEN X=X+1 

POKE P0,P:J=1 
POKE 55295+X+Y*40,O 

IF J=l THEN P=PEEK 
(1024+X+Y*40) :J=0 
IF P>127 THEN P1=P-128 
IP P<128 THEN P1=P+128 
PO=1024+X+Y*4O 
REM END CURSOR ROUTINE 
IF PEEK(53272) =31 THEN CS=2048 
:REM LOWER CASE CHRSET 
IF PEEK(53272)=29 THEN CS=0 



:REM UPPER CA5E CHRSET 

41 IFCJOY AND 16)=0 THEN Pl^P 
:GOTO 100: REM FIRE BUTTON 

42 GET G$:IF G$="S"THEN SYS 49152 

43 IF G$="L"THEN LOAD"CHARACTER 
SET1",8,1:REM CHANGE LINE 340 
IF YOU CHANGE THISI 

51 GOTO 20 

95 REM MAKE GRID 

1H0 PRINT" [CLEAR] "A$;" [CMDR A, 

CMDR R8,CMDR S]":FOR T=l TO 8 

:PRINT B$"[CMDR Q,SHFT +8, 

CMDR W] " ;NEXT 
105 PRINT B$"[CMDR Z,CMDR E8 , 

CMDR X] " 
107 PRINT" [DOWN] [F 7] TO RETURN" 
110 N=12288+(8*P)+CB 

120 PRINT" [HOME, DOWN, RIGHT] ";A$; 
:FOR T=0 TO 7: FOR M=7 TO £f 
STEP-1 

121 IF PEEK (N+T) AND 2'"M THEN 
PRINT" [RVS] [RVOFF]"; 
:GOTO 130: REM DOTS ON 

125 PRINT" [SHFT +]";:NEXT 
:GOTO 140:REM DOTS OFF 

130 NEXT 

140 PRINT: PRINT B$" [RIGHT] ";: NEXT 

145 X=13:Y=H 

148 REM BEGIN GRID CURSOR 
CONTROLL 

150 JOY=PEEK(56320) 

160 POKE 1024+X+Y*40,P 

170 IF(JOY AND 1J=0 THEN Y=Y-1 

180 IF(JOY AND 2)=0 THEN Y=Y+1 

190 IF(JOY AND 4)=0 THEN X=X-1 

195 IF(JOY AND 3)=0 THEN X=X+1 

196 GET GS:IF G$=" [F7] "THEN CLR 
:GOTO 9 

200 P=PEEK(1O24+X+Y*40) 
210 POKE 1024+X+Y*40,86 

:POKE 5529o+X+Y*40,0 
220 IF(JOY AND lf5)=0 THEN GOSUB 

600: REM FIREBUTTON 
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300 GOTO 150 

3C5 REM MACHINE CODE POKED IN 

THRU DATA 
310 DATA 159,8,162,8,160,255,32, 

1 86, 255, 1'S 9, 17, 15 2, 36, 160, 

192,32,189,255,169,0 
320 DATA 133,251,169,48,133,252, 

169,251,162,240,150,63,32, 

216,25 5,96 
340 DATA 64, 48, 58, !S7, 72, 65, 82, 65, 

67,84,69,82,32,33,69,84,49 

:REM 00: CHARACTER SETl 

350 REM CHANGING LAST # IN 340 
TO 50 WILL SPELL 'CHARACTER 
SET2' , 51 WILL 

351 REM MAKE IT 'CHARACTER SET3', 

ETC. 

352 REM 4TH § IN DATA LINE 310 
IS DEVICE U. 1=TAPE, 8=DISK 

353 REM CHANGE LINE 43 IF YOU 
CHANGE ONE OF THESE DATA 
LINES. 

390 IF 0=1 GOTO 12 

400 FOR NB=49152 TO 492B4:READ XT 
:POKE NE,XT:NEKT 

4 20 RETURN 

510 REM END CURSOR 

600 IF P=91 THEN P=160:GOTO 630 
:REM CHECK FOR DOT ON 

610 IF P=163 THEN P=91:G0T0 S80 
:REM CHECK FOR DOT OFF 
RETURN 

REM EDIT CHARACTER 
POKE 12289+(8*Pl+CS)+(Y-8) , 
PEEK(1228a+C8*Pl+CS}+{Y-8} ) 
0RC2" (7-(X-15} } ) jRETURN 
OP=PEEK( 12288+ (8*Pl+CS)+(Y-8) 

) 

POKE 12288+t8*Pl+CS)+(Y~8) , 

0P-(2" (7-(X-15)) ) :RETURN 
PRINT" fCLEAR,DOWN,SPACE101 
*** PLEASE WAIT *** " 
POKE 56334, PEEK(55334) AND 254 
POKE 1,PEEK(1)AND 251 



904 FOR I=fl TO 4096 

:POKE 1+12288, PEEK(I+53248) 
:NEXT 

905 POKE 1,PEEK(1)0R 4 

906 POKE 56334, PEEK{5G334)0R 1 

907 GOTO 8 

998 : 

999 : 

1000 REM TO CHOSE A CHAR FOR 
EDITING: 

1001 REM 1. POSITION "CURSOR" 
OVER 

1002 REM THE DESIRED LETTER 
USING 

1003 REM THE JOYSTICK. 

1004 REM 2. HIT THE FIREBUTTON. 

1005 : 

1006 REM TO EDIT A CHARACTER: 

1007 REM 1. MOVE THE "CURSOR" 
INTO THE 

1008 REM GRID, USING 
JOYSTICK. 

1009 REM 2. PLACE "CURSOR OVER 
DOT 

1010 REM AND HIT FIREBUTTON 
TO 

1011 REM ERASE DOT. 

1012 REM 3. PLACE OVER EMPTY 
MATRIX 

1013 REM AND HIT BUTTON TO 
SET DOT. 

1014 : 

1015 REM SAVE A CHARACTER SET BY 

1016 REM HITTING "S". 

1017 REM LOAD BY HITTING "L". 

1018 : 

1019 REM RETURN TO THE 
CHARACTER MENU 

1020 REM BY HITTING THE 
FUNCTION 7 KEY 

1021 : 

1022 REM ESCAPE PROGRAM WITH 
RUN/STOP. c 
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Letters to my 
Grandchildren 

Part I- 

Roman- to -Arabic 

and Back 

by FH Shedd 



Dear Miriam and Lucas: 

Last week I began to think about the fact that you two 
were still using the VIC 20 both at home and at school 
and that, after aU my promises, I had never yet sent you 
a program. So I started to think about writing one that 
would be unusual and interesting and — nasty word — 
educational, too. The result is included with this letter 
and it came about in this way. 

Your grandma likes to work crossword puzzles and 
she had a three-letter word that had a definition "double 
six". The word turned out to be "XII." And so I got to 
wondering whether I could easily write a program that 
would translate Roman numerals to Arabic and Arabic 
to Roman numerals. I tried it and I'm going to test it 
on my VIC 20. 1 think it's short enough for it to handle. 
We'll see. 

Probably both of you have been introduced to Roman 
numerals in school. However, I'll review them so that 
you will be able to analyze the program. 

You may not have noticed how much they are still 
used. Whenever a motion picture comes on television 
there is a "lead in," The major items covered are: title 
of picture: author: cast: camera and makeup personnel; 
musicians; etc. And, usually last, there is the year of 
release, normally given in Roman Numerals. For in- 
stance an oldie would show "MCMDLIV", which would 
mean 1954. 

Also look at the inscriptions on monuments, the cor- 
ner stones of buildings, the large clocks on churches 
or other public structures and old fashioned time pieces 
including sundials. Even as late as my boyhood no gen- 
tleman or lady would carry a watch with Arabic num- 
bers on the dial. 

There was a reason for this, which went back to the 
Middle Ages. The Arabic numbers were introduced 
into Europe by contact with the Moors in Spain and 
the Saracens of Palestine, who were much more ad- 
vanced in mathematical science — and mainly due to 
the use of Arabic, or, as the Arabs themselves called 
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them, Hindi numerals. 

It was a] Khuiwarizimi's book, Algebara wal Muqua- 
balah, written in the 9th Century which laid the foun- 
dation for mathematical processes using the nine 
Hindi- Arabic numerals and the zero. From his name 
comes our word "algorithm" and from the title of the 
book our word "algebra." 

Addition, subtraction, multiplication, division and 
fractions — in fact all the operations of arithmetic — were 
greatly simplified by their use. Both mathematicians 
and merchants caught on to this quickly and began to 
keep two sets of books. One for their own work records 
in Arabic numerals — but another to show the public in 
Roman numerals. It was dangerous to use this "heathen" 
method and it had to be done in secret, One could actu- 
ally be accused of being an heretic if caught. And, of 
course, no public inscription could be made in other 
than the accepted classical form. 




The Semitic languages and Greek used alphabetic 
characters to represent numbers. This meant that 
names of people and things couid also be read as num- 
bers and, conversely, a certain number also could be 
translated to a name. It gave rise to whole systems of 
esoteric properties of numbers. See Numerology, the 
Cabala, Gematria, Pythagoreanism, The Book of Daniel, 
The Revelation of Saint John the Divine, etc. 

I feel that I am digressing — but at least some knowl- 
edge of these uses of numbers is necessary if you want 
to understand many of the worid's religions, Oriental as 
well as Occidental, and should be part of your back- 
ground if you are to be an intelligent reader. 

It is important that you learn to handle Roman numer- 
als, although today they are little used. One of the tests 
that can be used to divide the literate from the illiterate, 
the savant from the idiot, the intellectual from the dolt 
and the student who makes a higher SAT score from one 
with a lower is a test of their ability to evaluate Roman 
numerals. You would be surprised how often some per- 
sonnel interviewer will pass out a seemingly innocent 
questionnaire to a job applicant that includes tests of 
general knowledge. 

Anyway, back to mathematics. The basic Roman 

numbers are: 

I is 1 

V is 5 

X is 10 

L is 50 

C is 100 

M is 1000 

If a lower value follows a higher value the count is 

added: 

VI is 6 

XV is 15 

CLX is 160 

MMMD is 3500 

The numbers may be written in a short or long form. The 

short form to facilitate their writing, the long to facilitate 

computation. The rule for the short form is: if a lesser 

value precedes a higher value, the count is subtracted 

— ^only one occurrence is allowed and V is not used: 



Long Form 


Short Form 


Is 


rm 


IV 


4 


Vim 


IX 


9 


MDCCCC 


MOM 


1900 


vm 


IK 


not permitted 


LXXXXV 


xcv 


95 


LXXXXV 


vc 


not used 



Now it is obvious that you can't easily add Roman 
numerals using pencil and paper. Of course the Romans 
did not have pencils and paper but they did have styli 
(scratch awls) and tabulae (wax coated tablets). Arabic 
numbers have fixed positional values and Roman num- 
erals do not. Compare: 

MDXXVII 1529 

ADD MCXXX 1130 

MMDCLVII 2657 

So the Romans had to "calculate." Calculus means 
"stone" in Latin, their language. They constructed a 
simple computer or calculator. They took a handful of 
small stones and laid out a board with small hollowed 
out dishes like this: 
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Observe there is no dish for zero, since they did not 
recognize this term. The word "zero" comes into our 
language through an Italian corruption of the Arabic 
word for empty — sifr — meaning an empty dish on the 
calculating table. 

Stones for the first value, MDXXVII, I have indicated 
by the symbol "" " and for the second value, MCXXX, 
the letter "o" in order to identify the individual values. 
The total is evident but needs simplification. 

The rectified table would have the foUowing appear- 
ance to indicate the total of 2657 in the short form of 
MMDCLVn. It is the result of removing the five stones 
in the X dish and putting one, their equivalent value, in 
the L dish. 



M 



00^-^ 



(oo)f o)(oJ{oJ 









The program is enclosed with "ARABIC-ROMAN" 
as the file name. It will run on the unexpended VIC 20. 
Try it out and let's hear how it works and whether you 
and your friends find it of interest, I have also enclosed 
a hsting. 

When you write be sure to include any questions 
that may come up when you study this subject. I will 
try to answer them if I can, 

Your grandpa. 



Roman-Arabic 



100 

110 

120 
130 
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REM PROGRAM NAME = 
' 'ROMAN-ARABIC ' 
REM PROGRAM FOR MIRIAM 
LUCAS 

BY GRANDPA 10/7/83 
CHR$(147) 
" tSPACE7}MENU'' 
" [SPACE61 =====" :PRINT 
"1 = ROMAN TO ARABIC" 
= ARABIC TO ROMAN" 
= STOP PROGRAM" 



REM 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IF Z 



"2 

"3 

Z 

= 1 

2 



THEN 
THEN 



GOTO 
GOTO 



230 

500 



IF Z = 

STOP 

PRINT CHR$(147) 

: PRINT "ROMAN TO ARABIC" 



: PRINT "0 - RETURN TO MENU' 

: PRINT 
24 INPUT "ROMAN # = " ; RN$ 
250 IF RN$="0" THEN GOTO 130 
263 L=LEN (RN$) 
270 FOR N = 1 TO L 
280 L$(N) ^ MIDS(RNS,N,1) 
290 GOSUB 420 
300 NEXT N 
310 S=G:LT=0 
3 20 FOR N=L TO 1 STEP-1 
330 T=VAL(P$(N) ) 
340 IF T>=LT THEN S = S +V(N) 
350 IF T<LT THEN S = S-V(N) 
360 IF T>LT THEN LT=T 
370 NEXT 
380 PRINT "ARABIC # =",-S 
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390 


PRINT 


780 


IF I$= "5" THEN 


Rl$= "V" 


400 


GOTO 240 


790 


IF I$= "6" THEN 


Rl$= "VI 


410 


STOP 


800 


[F I$= "7" THEN 


Rl$= "VII" 


420 


IF L$(N)="M" THEN P$(N)="7" 


810 


IF I$= "8" THEN 


Rl$= "VIII" 




:V(N)=100O 


8 20 


rF I$= "9" THEN 


Rl$= "IX" 


430 


IF L${N)="D" THEN P$(N)='*6'* 


830 


[P J$= "1" THEN 


R2$= "X" 




:V(N)=500 


840 


[F J$= "2" THEN 


R2$= "XX" 


440 


IF L$(N)="C" THEN P$(N)="5" 


8 50 


IF J$= "3" THEN 


R2$= "XXX" 




:V(N)=100 


860 . 


[F J$= "4" THEN 


R2S= "XL" 


450 


IF L$(N)="L" THEN P${N)=*4" 


870 


IF J$= "5" THEN 


R2$= "L" 




:V(N)=50 


880 


IF J$= "6" THEN 


H2$= "LX" 


460 


IF L$(NJ="X" THEN P$(N)="3" 


890 


IF JS= "7" THEN 


R2$= "LXX" 




:V(N)=10 


900 


IF J$= "8" THEN 


R2S= "LXXX" 


470 


IF L$(N)="V" THEN P$CN)=''2'' 


910 


IF JS= "9" THEN 


R2$= "XC" 




:V(N)=5 


920 


IF K$= "1" THEN 


R3$= "C" 


480 


IF L$(N)="I" THEN P$(N)="1" 


930 


IF K$= "2" THEN 


R3$= "CC" 




:V(N)=1 


940 


IF K$= "3" THEN 


R3$= "CCC" 


490 


RETURN 


950 


IF K$= "4" THEN 


R3$= "CD" 


500 


PRINT CHR$(147) 


960 


IF K$= "5" THEN 


R3$= "D" 




:PRINT "ARABIC TO ROMAN" 


970 


IF K$= "6" THEN 


R3$= "DC" 




:PRINT "0 - RETURN MENU" 


980 


IF K$= "7" THEN 


R3S= "DCC" 




: PRINT 


990 


IF K$= "8" THEN 


R3$= "DCCC" 


510 


INPUT "ARABIC {f = ";AN$ 


1000 


IF K$= "9" THEN R3$= "CM" 


520 


IF AN$="0" THEN GOTO 130 


1010 


IF L$= "5" THEN R4$= "L" 


530 


V=VAL(AN$) :IF V < 4999 THEN 


1020 


IF L$= "1" THEN R4$= "M" 




GOTO 560 


1030 


IF LS= "2" THEN R4$= "MM" 


540 


PRINT "4999 IS UPPER LIMIT 


104"0 


IF L$= "3" THEN R4$= "MMM" 




FOR ENTRY" 


1050 


IF L$= "4" THEN R4$= "MMMM" 


550 


PRINT "GOTO RE-RUN" 


1060 


IF L$= "5" THEN R4$= "L" 




:FOR T=l TO 100H:NEXT 


1070 


IF L$= "6" THEN R4$= "LX" 




:GOTO 130 


1080 


IF L$= "7" THEN R4$= "LXX" 


5f)0 


REM R1$ = "":R2$ = ''":R3$ = "" 


1090 


IF L$= "8" THEN R4$= "LXXX" 




:R4$="" 


1100 


IF L$= "9" THEN R4$= "CX" 


570 


L = LEN (AN$) 


1110 


RETURN 




580 


FOR N = 1 TO L 


1120 


I$=MS(1} 




590 


M$(N)=MID$(AN$,N,1) 


1130 


GOSUB 740 




600 


NEXT N 


1140 


R4$="":R3$="":R2$="" | 


610 


R4$="":R3$="":R2$="":R1$="" 


1150 


RETURN 




620 


IF L=l THEN GOSUB 1120 


1160 


J$=M$(1) :I$=MS{2) :GOSUB 740 


6 30 


IF L=2 THEN GOSUB 1160 


1170 


IF M$(2)="0" THEN Rl$="" 


640 


IF L=3 THEN, GOSUB 1200 


1180 


R4$="":R3$="" 




650 


IF L=4 THEN GOSUB 125^! 


1190 


RETURN 




660 


PR$= R4$+R3$+R2$+R1$ 


1200 


K$=M${1) :J$=M$(2) :I$=MS(3) | 


670 


L=LEN(PR$) :IF L<10 THEN 




iGOSUB 740 






PR$=" "+ PR$:GOTO 670 


1210 


IF M$(2)="0" THEN R2S="" 


680 


PRINT "ROMAN = "; 


1220 


IF M$(3)="0" THEN Rl$="" 


690 


PRINT PR$ 


12 30 


R4$="" 




700 


PR$="tSPACEll]" 


1240 


RETURN 




710 


R4$=" " : R3$=" " : R2$=" " : R1S=" " 


1250 


L$=M$(1) :K$=M${2) :JS=MS(3) 


720 


PRINT 




:I$=M$(4) iGOSUB 740 


730 


GOTO 510 


1260 


IF M${2)="0" THEN R3$="" 


740 


IF I$= "1" THEN R1S= "I" 


1270 


IF M$(3)="0" THEN R2$="" 


750 


IF I$= "2" THEN Rl$= "II" 


1280 


IF M$(4)="0" THEN Rl$="" 


760 


IF I$= "3" THEN Rl$= "III" 


1290 


RETURN 


C 


770 


IF I$= "4" THEN Rl$= "IV" 
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Automatic VIC 20 
Disk Starter 

by Stephen S. Leven 



For over a year I've had a VIC 20, and I have been 
accumulating, among other things, a large collection 
of game programs on tape for my kids. Many of these 
came from typing the listings found in magazmes like 
Power/Play, and some came from friends and other 
members of users groups. The main game player in our 
household is my 6 year old son, Jonathan, so I SAVED 
each game on a separate tape. Jonathan is just be- 
ginning to learn to read, so I used different colors or 
sketches on the label of each tape to help him identify 
the games he w/ants to play. 

It was a simple task to teach him to turn on the VIC 
and LOAD the games himself. All he had to do was (1) 
sw^itch on the VIC and the TV, (2) select the game he 
wanted, (3) insert the cassette into the datassette, (4) 
hold down the SHIFT key and press the RUN/STOP key, 
and (5) press PLAY on the datassette. Jonathan got very 
adept at this procedure, which is remarkable for a child 
who sometimes can't remember whether liis shoes or 
socks go on first! 

However, I noticed that sometimes in the 40 to 60 
seconds that some games took to LOAD, Jonathan 
would grow impatient. This was just one more incentive 
for me to buy the 1541 disk drive. Now, neither of us 
would get impatient! 

A Mixed Blessing 

After connecting the 1541 and reading the manual, 
I began playing with the VIC and disk dnve, I soon real- 
ized that even though programs LOADed much more 
quickly than with tape, the system was a bit more com- 
plex for a child (or adult, for that matter) to use than the 
datassette. It wasn't hard to teach Jonathan to turn the 
disk drive on before turning on the VIC 20. It also 
wasn't hard to teach him the proper way to handle the 
disks, insert them into the drive and remove them and 
store them after LOADing the program. What was dif- 
ficult was to teach him to enter the commands neces- 
sary to set the drive to the proper speed for the VIC 
and to LOAD the program of his choice. 

As specified in the manual for the disk drive, the fol- 
lowing command must be used when the drive is first 
turned on to set the speed of data transfer to match the 
VIC. (When powered up, the 1541 is set at a slightly 



slower speed to match the Commodore 64): 

OPEN 15,8, 15,"UI-" : CLOSE 15 [ RETURN] 
Since I had SAVEd all the games on one disk, titled 
GAMES, the commands to LOAD and RUN a particular 
game are as follows: 

LOAD "game name ',8 [RETURN] 
RUN I RETURN] 

This is a lot for a non -reading, non- writing (and non- 
typing) child to enter into a computer, Jonathan seemed 
disappointed that the much heralded disk drive was not 
so easy to use, from his point of view, after all. 

Enter the Menu 

As an owner of a Commodore 64 computer, too, (like 
my wile, I just can't resist a bargain, and the 64 really 
is a bargain!) I had a copy of the Disk Bonus Pack. This 
disk, which is completely filled with useful utility, game 
and demonstration programs for the 64, included a menu 
program, C64. MENU, written by Michael Schaff. If the 
menu program is SAVEd as the first program on the 
disk, it can be LOADed and RUN by simply typing the 
following command: 

LOAD ":" ",8 : | SHIFT-RUN/STOP] | RETURN] 
However, as you might expect, when I tried to run 
C64. MENU on the VIC, it didn't work. Fortunately, the 
" program is in BASIC, so I listed it and set about chang- 
ing it to work on the VIC 20, Program 1 at the end of this 
article is the menu program, modified to work on the 
VIC 20, with any amount of memory. 

When VIC MENU is RUN, the first thing it does is 
search the disk for a file titled "DIRECTORY". If it finds 
this file, it reads the contents and displays a listing of 
the first 15 program files in alphabetical order. Next to 
each program name is a number. If you wish to LOAD 
and RUN any program displayed on the menu, simply 
enter the number of the program, and press RETURN, If 
there are more than 15 programs on the disk, pressing Fl 
will display the next "page" of 15 programs, numbered 
16 through 30. This process will continue until all of the 
programs have been displayed. Pressing Fl again re- 
turns you to "page 1". and the process begins again. 

If there is no file titled DIRECTORY, the program 
creates one. You will hear the disk drive stop spinning 
with the red hght still on one or more times during this 
operation. This is normal. Also, if you have added new 
files to the disk since the time the DIRECTORY file was 
created, you can press F3 when the first "page" is dis- 
played, and a new DIRECTORY file will be created. 

Pressing F5 ends the program, but leaves you with the 
cursor on a line on which the word RUN is printed. If you 
want to use VIC MENU, which is still in your computer's 
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memory, on another disk (which need not have the VIC 
MENU program on it), simply place the new disk in the 
drive and hit RETURN. The program will RUN, and the 
directory of the new disk will be displayed. 

The VIC MENU displays only program files, but not 
any sequential or other types of files, In addition, any 
program name that starts with a space is not displayed 
on the menu. This can be helpful when one program 
LOADs another. More on this later. 

I SAVEd VIC MENU as the first program on the 
GAMES disk (See page 1 10 for the procedure on how 
to do this to a disk with programs already on it). Now, 
Jonathan could simply (??) type: 

OPEN 15,8,15,"UI-" : CLOSE 15 [RETURN) 
LOAD": ■■■,8 : [ SHIFT-RUN/STOP) |RETURNj 
and then he could select the game by number from the 
menu, I even used some of the VIC graphic symbols as 
part of the name of the game program when I SAVEd 
it, so he would be better able to identify the game he 
wanted. (Yes. graphic characters can be used in pro- 
gram names, just like letters and numbers.) 

The Disk Starter 

This was still a lot of typing for a youngster (it's a lot of 
typing for me! ) so I thought of a way to further simplify 
the whole process. What if I could get the VIC to do this 
typing for me, by using the dynamic keyboard tech- 
nique? What if 1 put a short program on tape, which can 
be LOADED and RUN by the simple press of the SHIFT 
and the RUN/STOP keys, and which would automati- 
cally set the disk drive speed and LOAD and RUN the 
menu? That's what the DISK STARTER is all about. 

Program 2 is the VIC DISK STARTER. This short 
program pnnts the OPEN/CLOSE command and the 
LOAD/RUN command on the screen, in the same color 
as the background so you don't see it. Then, the key- 
board buffer is filled with the proper number of HOME, 
CRSR DOWN, and RETURN characters to execute these 
statements. And when SAVEd to tape, the DISK 
STARTER can be activated with the simple SHIFT- 
RUN/STOP key sequence. No more typing! ! 

Putting it All Together 

Here's what to do. First, format a new disk. The man- 
ual that came with your 1541 disk drive tells you how to 
do this. Next, type in Program 1, the VIC MENU. SAVE 
the VIC MENU as the first program on your newly for- 
matted disk. Be sure to leave a space between the first 
quote mark and the letter V, as shown below: 
SAVE "I SPACE] VIC MENU' ',8 

Now LOAD your first game program {or any program 
you wish to use this method for), then SAVE it on the 
disk with the VIC MENU. Repeat this process until all 
the programs you want are on the disk. You can make 
up multiple disks, such as one for games, one for home 
finance programs, one for utilities, etc. Just be sure 
that the VIC MENU is the first program on the disk. 

Next, type in Program 2, the VIC DISK STARTER. Be 
sure to leave a space between the third quote mark and 
the letter V on line 20. This must match the name of the 
program you just SAVEd on disk, character for charac- 
ter. SAVE this program on tape! !. SAVE it just twice 
until you're sure it's working properly. Then, put a fresh 



tape on the datassette and enter the following command 

in direct mode: 

FOR I=lTO100 : SAVE "VIC DISK STARTER" : 

NEXT I RETURN] 
The program will be SAVED over and over again on the 
same tape, until the tape stops. (Actually, one side of a 
60-minute tape, which takes 30 minutes, will hold about 
97 copies of the VIC DISK STARTER). When the tape 
stops, don't rewind it, but turn it over, hold down RUN/ 
STOP and press RESTORE, and repeat the process. 
You now have VIC DISK STARTER SAVEd continuously 
on both sides of the tape! Now, rewind the tape to 
about the middle. 

Let's Put it to Work 

Now we have a system that even Jonathan can use. 
Here's the procedure for LOADing and RUNning any 
program from disk on the VIC 20, with minimum 
typing effort: 

1. Turn on the monitor or TV, the disk drive, and than 
the VIC 20. 

2. Place the disk containing the program you want to 
RUN and the VIC MENU program in the disk drive. 

3. Place the DISK STARTER tape in the datassette, 
either side up. 

4. Hold down the SHIFT key and press RUN/STOP. 

5. The VIC 20 will say "PRESS PLAY ON TAPE". Do it. 

The tape will begin moving in the datassette. Soon 
the VIC will display "FOUND VIC DISK STARTER", then 
"LOADING". After a few seconds, the VIC screen will 
clear, and display the title "VIC MENU". Seconds later, 
the menu of programs on the disk will appear. Simply 
find the program of interest (use the Fl key to view the 
next "page", if necessary), type in its number, press 
RETURN and the program will LOAD and RUN auto- 
matically. Even I can manage that procedure! 

Helpful Hints 

IMPORTANT: Be sure the title of the VIC MENU pro- 
gram you SAVE to disk begins vrith a SPACE! Be sure 
that the title of the VIC MENU program you type in line 
20 of the VIC DISK STARTER also begins with a SPACE. 
These two program names must match, character for 
character, or the VIC DISK STARTER will not find the 
VIC MENU on the disk. 

There is never any need to rewind the VIC DISK 
STARTER tape. Simply place it in the datassette with 
more tape on the left side than the right. 

Keep the PLAY button depressed on the datassette 
until your session with the VIC is finished. That way. on 
subsequent start-ups, you won't have to press this but- 
ton. DON'T FORGET TO PRESS STOP AND REMOVE 
THE TAPE WHEN YOU ARE DONE WITH YOUR SES- 
SION ON THE VIC 201 ! 

Don't forget to remove the disk from the drive before 
turning off power to either the computer or the disk 
drive. Turn off power to the VIC 20 before turning off 
power to the 1541 drive. 

Program your games, and other programs, vnth a def- 
inite end. A statement such as "PLAY AGAIN? Y/N : " 
in a game program or a menu item "9. END PROGRAM" 
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will do the trick. Then program the END or NO choice 
to re-LOAD and RUN the VIC MENU. Program lines 
such as these will do the trick: 



tedious work, like repetitive typing, for us. Making life 
easier is what the computer age is all about. 



900 PRINT" [CLEAR] PLAY AGAIN? Y 
OR N:" 

910 GET A$:IF A$="y"THEN 000 

: REM 000 IS THE BEGINNING 
OF THE PROGRAM, AFTER IN IT. 

92R IF A$<>"N"THEN 91H 

930 PRINT" [CLEARl LOAD"CHR$ (34) " 

VIC MENU"CHR$ (34) ;",8[DOWN101 
": PR I NT "ONE MO.MENT PLEASE..." 

940 POKE 531,19;POKE 532,13 

:POKE 533,G2:POKE 634,117 
:POKE r>35,13:POKE 198,5:END 



These lines, in the appropriate part of the program . 
(change the line numbers as necessary), will clear the 
screen and cause the question "PLAY AGAIN? Y OR 
N ;" to be printed at the top of the screen. Pressing the 
Y key will cause the program to begin again. Pressing 
the N key wiU cause VIC MENU to be LOADed and RUN. 
Pressing any other key {except RUN/STOP) will have 
no effect. 

The fact that the VIC MENU doesn't display program 
names that begin with a SPACE, provides a convenient 
method tor using a series of programs, that is, one pro- 
gram which LOADS and RUNs another. For example, 
suppose you're entering a two-part program named 
GAME. Part 1 is the instruction screen, custom character 
generator and initialization. Part 2 is the actual game 
itself. SAVE Part 1 in the normal manner: 

SAVE "GAME", 3 
Now, SAVE Part 2 beginning with a SPACE: 
SAVE "[SPACEJGAME PART 2", 8 

Be sure that the Part 2 LOAD command in Part 1 in- 
cludes the SPACE as part of the program name. Now, 
when VIC MENU is RUN, only the hrst part, titled 
GAME, will appear in the menu. This wiU prevent you 
from entering the item number for the wrong part. When 
you LIST the disk directory, using either the normal 
method or the DOS WEDGE, both parts of GAME will 
show up, and the name of GAME PART 2 will begin with 
a blank space. 

lyping Help 

If you don't want to do aU the typing yourself, just 
send me a blank formatted (with the NEW command) 
disk (no tapes please I), a self- ad dressed stamped return 
mailer and $3,00, and I'll be glad to make you copies of 
both programs. When you get your disk back, just LOAD 
the VIC DISK STARTER into your VIC 20, then SAVE it 97 
times or so on both sides of a blank tape. My address is: 
6 Hillery Court 
Randallstown, MD 21133 

Besides being a great game machine, the VIC 20 is 
a real computer! We might as well let it do some of the 



Adding VIC MENU as the First Program 
on an Existing Disk 

If you have a disk full of programs already and want to 
add the VIC IvlENU as the first program on this disk, you 
must move the existing first program to elsewhere on the 
disk, then SAVE VIC MENU. The foliowing procedure must 
be used. {Let's assume the first program on your existing 
disk is named GAME I): 

1 . If you haven't already done so, type: 

OPEN 15,8,15,"UI-" [RETURN] 
This opens the disk command channel and sets the 1541 
disk drive to the faster speed, compatible with the ViC 20, 

2. Rename your first program to a temporary name (file 15 
must be OPEN for the disk command channel) 

PRINT#15, "RO: TEMPORARY = GAME 1" [RETURN] 

3. Copy the file from TEfwIPORARY to another file with the 
original name, You will now have two copies of the file on 
the disk, with two different names: 

PRINT#15, "CO: GAIViE 1 ^TEMPORARY" (RETURN] 

4. Scratch the first file on the disk, which is the one named 
TEMPORARY: 

PniNT#15. "SO: TEMPORARY" [RETURN] 

5. SAVE the VIC MENU. It will be SAVEd in the first available 
space on the disk, which is now the first directory item: 

SAVE"[SPAGE]VIC MENU",8 [RETURN] 



Program 1. VIC MENU 



5 FL=0:SM=81S5:CM=38905 

:IF PEEK(56)>30 THEN SM=46H1 
:CM=38393 
POKE 36879, 110:DIM TB$(150) 
: PRINT" [CLEAR! ":DI=8:C=1 
PRINT" [D0WN4i "SPC{6) " [WHITE] 
VIC MENU[BLUE] " 
OPEN 3,DI,8,": [SPACES] 
DIRECT0RY[SPACE3] " 
:OPEN 15,DI,15:INPUT)»15,EN$, 
ED$,ET$,ES$ 

INPUT(8,DN$;IF EN$<>"0a»THEN 
CLOSE qsCLOSE 15:G0T0 310 
INPUT»8,TB$(C) :IF ST=66 THEN 
70 

IF ASC(LEFT$(TB$(C) , 

1))=10 THEN TB$(C)=RIGHT$(TB$ 

(C) ,LEN(TB${C) )-l) jGOTO 50 

C=C+1:G0T0 40 

CLOSE 8:CL0SE 15:M=C-1 

:TB$(C)="":L1$ = ''[RVS] " 

:FOR C=l TO 22:L1$=L1$+" " 

:NEXT 

L1$=L1$+" (RVOFF] ":A=1 



10 
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40 
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80 
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9C3 POKE 36879, 30:PRINT" [CLEAR, 280 
BLUE] "; :FOR C=l TO A 
:PRINT L1$;:NEXT 290 

95 PRINT" [HOME] "; 

100 PRINT SPC{1}" [RVS,BLUE] 

DIRECTORY ASSISTANCE"SPC C 31) 30P) 
"VIC-20"SPC(30) 310 

120 FOR C=A TO A+14 

iPRINT" [RVS] "RIGHT$(" (SPACE2] 
"+STR$(C) , 3) " [RVOFF) [BLUE] 320 
"TBS (C) SPC(16-LEN (TB$ (C) } ) ; " 
[RVS,SPACE2J "; 

130 NEXT:PRINT LIS; 330 

135 PRINT" [BLUE] "Ll$; 

:PRINT LEFT$(L1$,22) " [UP]" 

149 PRINT SPC(l) "[RVS,UP2] 340 
Fl = CONTINUE LISTINC'SPCd) 

"F3 = CREATE DIRECTORY"; 350 

150 PRINT" [RVS] F5 = EXIT 
PR0GRAM[SPACE3rBLUE,H0ME] " 350 
:P0KE SM,160:POKE CM, 6 370 
:POKE 193,0:B$="" 380 

160 GET A$;IF A$=""THEN 160 390 

170 IF ASC(A$)=13 THEN 260 

130 IF A$=" [Fl] "THEN 240 400 

190 IF A$="[F3] "THEN 330 

200 IF A$="[F5J "THEN POKE 35879, 410 

27:PRINT" [CLEAR, D0WN3, BLUE] 

RUN [ HOME] ": END 4 20 

210 IF A3C(AS)=20 THEN BS="" 

: PRINT" [HOME, DOWN 3, RED, RVS, 4 30 

SPACE3,RV0FF] ":B$="":G0TO 160 440 
220 IF AS<"0"OR A$>"9"0R 

LEN(B$)=3 THEN 160 450 

230 B$=B$+A$ : PRINT" [HOME, D0WN3, 

BLUE] "B$:G0T0 160 
240 IF OM THEN A=1:G0T0 90 460 
250 A=C:GOTO 90 
260 IF VAL{B$)>M OR BS=""THEN 

PRINT" [HOME, D0WN3, BLUE]???" 470 

:FOR C=l TO 15O0:NEXT 

:A$=CHR$(20) :GOTO 210 
270 PRINT" [RVOFF, CLEAR, D0WN3, 480 

WHITE] LOAD"CHR$ (34) TB$(VAL 490 

(BS) )CHRS(34) ","; 



PRINT RIGHT$(STRS(Diy, 

LEN(STR$(DI) )-l) 

PRINT" [HOME, BLUE] ":POKE 198,4 

-.POKE 6 31,13:POKE 6 32,8 2 

:POKE 633,213:POKE 634,13:END 

PRINT" [HOME, D0WN3,BLUE]WAIT" 

OPEN 8,DI,0,"S0":FOR C=l TO 3 

:GET(t8,A$:NEXT:C=l:DN$="" 

:FOR C=l TO 16 ^. 

GET«8,A$:DN$=DN$+A$:NEXT 

:GET|t8,A$:GET#8,A$ 

:DN$=DN$+" [SPACE2] " :GET«8,A$ 

DN$=DN$+A$:GET#8,A$ 

:DN$=DN$+A$:GETS8,A$:GET#8,A$ 

:DN$=DN$+" [SPACE2J "+A$ 

GET»8,A$:DN$ = DN$+A$:GETif8,A$ 

;C=1 

FOR A=l TO 4:GETft8,A$:NEXT 

: PN$=" " : TY$=" " 

GET#8,A$:IF STO0 THEN 450 

IF A$=""THEN 450 

IF ASC(A$)<>34 THEN 360 

GET#8,A$:IF ASCtA$)<>34 THEN 

PN$=PN$+A$:GOTO 390 

GET98,A$:IF ASC(A$)=32 THEN 

400 

TY$=TY$+A$:GET|8,A$ 

:IP A$<>""THEN 410 

IF LEFT$(TY$,3)<>"PRG"THEN 

350 

IF LEFT$CPNS,1)=" "THEN 350 

TB$(C)=PN$:C=C+1 

:IF ST=0 THEN 350 

CLOSE 8;0PEN 15,DI,15,"S 

: [SPACE3] DIRECTORY [SPACE 3)" 

jCLOSE 15 

Z$="[SHFT Z16]":0PEN 8,01,8," 

: [SPACE3]DIRECT0Ry[SPACE3J ,S, 

W":PRINT#8,DN$ 

FOR A=l TO C-1:C$=Z$ 

:FOR a=l TO C-1 

:IF C$<TB$(B)THEN 490 

C$=TB${B) :D=B 

NEXT:PRINTIf8,C$:TB$(D)=Z$ 

:NEXT:CLOSE 8:CLR:G0T0 5 



Program 2. VIC Disk Starter 



10 PRINT" [CLEAR, WHTTEIRUN" 
20 PRINT"L0AD"CHRS(34) " VIC 

MENU"CHR$(34) ",8 
30 PRINT"OPEN15,8,15, 

"CHR$(34) "UI-"CHR$(34}" 

:C LOS El 5" 



40 POKE 631,19:POKE 632,17 
:POKE 633,17:POKE 634,13 
:POKE 635,19:POKE 636,17 

50 POKE 637,13:POKE 538,19 
iPOKE 639,13:POKE 640,31 
:POKE 198,10 
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All You Need 
to Know to 
Begin 
Programming 

in Machine 
Language 



Paitl 

by John J. Karcher 



This article is a compilation 
of infonnation from various 
sources — all the infonnation 
needed to begin programming 
in 6502 machine language 
on the VIC 20. The object 
of this article is to save you 
the effort necessary to gather 
and organize all this 
information, and to explain 
it in understandable terms. 
This article is divided into 
several short sections, each 
a different aspect of machine 
language programming. 



When I first tried to learn machine 
language, all the information I read 
said that to learn machine language 
one must understand how the VIC 
works. But I did not beheve this. 
However, as I progressed, I learned 
that a fundamental knowledge of the 
VIC'S internal functions is very help- 
ful. This is by far the hardest part of 
learning machine language. The rest 
is very simple. 

Introduction To Machine 
Language 

As you know, the VIC's memory is 
made up of locations, each contain- 



ing a number between zero and 255. 
A question arises from this fact. If the 
VIC stores only numbers, how does it 
store our BASIC programs? Well, the 
VIC assigns each BASIC command 
and every character a number, (be- 
tween zero and 255, of course). A list 
of these values is on page 121 of the 
VIC 20 ProgTammer's Reference 
Guide. The VIC automatically stores 
these values in memory, between lo- 
cations 4096 and 7679 and shuffles 
them around when you edit your 
programs. 

The BASIC language is a machine 
language program, which tells the 
VIC what to do when it sees the pro- 
gram in memory. If BASIC is a ma- 
chine language program, is machine 
language a program in another, 
super, language? No, machine lan- 
guage is the actual language of the 
VIC'S microprocessor. That's right! 
Machine language is as close as you 
can get to the internal workings of 
the VIC. 

Since machine language is the 
microprocessor's language, it has 
many advantages over BASIC. First, 
machine language is very, very fast. 
In fact, it can be hundreds of times 
faster than BASIC. Second, it lets 
only what you want to happen, hap- 
pen. The user cannot destroy your 
program if you program it to be 
user-safe. Third, it lets you do more 
things than BASIC. Fourth, it uses 
much less memory to do all of this. 

But machine language has its dis- 
advantages too. While no error mes- 
sages tell you about mistakes, an 
enor causes the VIC to "hang up", or, 
in other words, all signs of usability 
disappear. You will have to turn the 
VIC off then on to regain control. But, 
as you may have guessed, when you 
do this, you lose your program, just 
as you do with BASIC. Also, each 
command does only one thing. But 
the disadvantages are outweighed 
by the advantages. 




Numbers 

In programming, three number 
bases are used — two, ten and six- 
teen. What is a number base? I'll ex- 
plain. When, in the early grades of 
school, the teachers talked about 
numbers, they spoke of the one's 
column, the ten's column, and the 
hundred's column. For example, 126 
is said to have one "hundred", two 
"tens", and six "ones". This Is base 
ten, because each column has ten 
times the significance of the one 
on its right. 

What about base two? Each digit 
has two times the significance of the 
one to its right. For example, 101 m 
binary (base two) is one "four", zero 
"two", and one "one". 

The highest one-digit counting 
number in a base is one less than the 
base number. Let's count to 16 in 
base 16 — one, two, three, four, five, 
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six, seven, eight, nine, ?!? What next? 
The next number cannot be more 
than one digit long, so ten is written 
A, 11 is B, 12 is C, etc, up to F for 15. 
For example, 25B in hexadecimal 
(base 16) is two "256's" (Remember, 
each digit has 16 times the signifi- 
cance of the one to its right, 16x16 
= 256.), five "16's", and B (11) "ones". 
When added together these equal 
603 in base ten. The number sixteen 
is written "10" because there is one 
"16" and zero "ones". 

This is important, so read carefully. 
In hexadecimal (or any base, for that 
matter) ten plus 20 stiE equals 30; 
two times 30 is still 60. This is true as 
long as both numbers are in the same 
base. But 20|i) times 30|b does not 
equal 600 hexadecimal or decimal. 
When you're working in any number 
system, think only in that system. 

As you can see, all calculations are 
performed the same way. You don't 
have to re-learn addition, subtrac- 
tion, multiplication or division to 
work m a different number base. In 
decimal, 2x8= 16; in hexadecimal, 
2x 8= 10 (one " 16" and zero "ones")l 
Also remember, in hexadecimal 19 
plus one equals 1 A! ! ! Always keep 
this kind of thing in mind. Counting 
incorrectly could be disastrous! 

What significance does base 16 
have? Binary (base two) is what the 
VIC actually uses, and decimal (base 
ten) is what BASIC uses. Hexadeci- 
mal (base 16) is a compromise. Can 
you imagine wmting 7680 in binary? 
It is not bad in decimal, but conver- 
sion between bases two and ten 
is slow, so each four digits of binary 
were made into one hexademical 
digit, for the programmer's com- 
fort only. 

For example, 0010110101101 100 
can be divided every four digits — 
0010,1101,0110,1100. Let's find the 
values of these groups starting with 
the first — "eights", "fours", 1 
"two", "ones" = 2. Do the others 
the same way and you get four 
numbers — 2,13,6, and 12. Convert 
these to hexadecimal notation and 
you get 2D6C. Which would you 
rather write twenty times in a pro- 
gram— 2D6C orOOlOUOlOllOllOO? 

The "address" is the number given 
to a memory location. Addresses can 
be from 0000 to FFFF in hexadecimal 
(0 to 65535 in decimal). Memory is 
divided into FF pages. The." page 
number" is the first two digits of the 



hexadecimal address. For example, 
5687m is in page 56. The first address 
in page 01 is 0100, and the last is 
OlFF. By the way, the page number 
does not have anything to do with 
the values in the page. 

Something else to keep in mind 
— a hexadecimal address must be 
four digits long, a value must be two. 
For example, address 0100 must be 
written 0100, not 100. The value OF 
must be written OF, not just F. An 
important fact to remember is that 
255 in decimal is FF in hexadecimal. 
This is the highest two-digit number 
possible, meaning that any two-digit 
number in hexadecimal, including 
zeros, will fill a single byte. 




Conversion 

You have already learned to 
change binary to hexadecimal, and 
changing back is just as simple. I will 
not explain how this works as 1 go 
along. You will just have to believe 
me. It does work. Use a calculator 
for convenience. 

Hexadecimal to decimal: Take a 
hexadecimal number, like 7B54. Take 
the first digit, 7, and multiply by 16. 
Add the second digit, B, and multiply 
by 16 again. Add the third, 5, and mul- 
tiply by 16. Finally, add the last digit, 
7 X 16=112+ 11= 123x 16= 1968+ 5= 
1973x16=31568+4=31572 
7B54iB = 31572,0 
For two-digit numbers it works the 
same way: C5, 
12x16=192+5=197 

C5,6= 197w 

Decimal to hexadecimal: Now, 
take a decimal number, this time 
31572. First, you divide by 4096. You 
get a number around 7708. The first 
digit is the 7 to the left of the decimal 
point, Subtract this 7 from the num- 
ber on the display and multiply by 
16. You get a number around 11.328. 
Eleven (B) :s the next digit. Subtract 
11 from the number on the display 
and multiply again by 16. The answer 



is almost exactly 5.25. Five is the 
next digit. Subtract 5 and multiply by 
16. The final answer is very near 4. 
The last digit is 4. The hexadecimal 
equivalent of 31572 is 7B54. 
31572+4096= 7708- 7= .708 X 16= 
11.328- 11 = .328x 16= 5.25- 5= 
.25x16=4 
(7B54) 31 572,0 = 7B54ie 
For numbers above 256, use the 
above method. Here is a short cut 
for numbers below 256. Take 197, for 
example. First, divide by 16. You get 
12.3125. Twelve is the first digit. Sub- 
tract 12 from the number. Multiply 
by 16. The answer is 5. The hexadeci- 
mal equivalent of 197 is C5. 
197+ 16= 12.3125- 12= .3125x 16= 5 
(C5) 197,0= C5,a 

NOTE: Uyou get a number like 2.99999 
or 10.0001 as a fin aJ answer, then 
just lound it off. 

Coding 

Once you have made it this far, you 
are home free. Remember when I told 
you how your VIC stores your pro- 
grams? It stores machine-language 
programs the same way. The list of 
strange-looking commands on pages 
164-167 of the VIC 20 Progiammer's 
Reference Guide is similar to the one 
on page 121, except it is for machine 
language, By the way, it's numbered 
in hexadecimal. On pages 140 and 141 
is a list of commands, and on pages 
142-161 is technical information. 

At first glance (and second, and 
third, for that matter), all this looks 
forbiddingly complicated. You might 
not be able to understand anything at 
all. Don't despair, though, it is aH 
fairly simple, once you understand a 
few things. Here are some guidelines. 

One of the first. things you'll notice 
on pages 140 and 141 is that two in- 
dexes and the word "accumulator" 
keep popping up. What is the "ac- 
cumulator"? It is a memory location 
— 780 in decimal, 030C in hexadeci- 
mal. What makes this location spe- 
cial? Nothing, except that the 6502 
microprocessor has set it aside for 
storing special numbers. The X and 
V indexes work the same way. 

One more piece of information 
before we go on. Machine language 
programs are stored directly in mem- 
ory, using no line numbers. The only 
reference points, then, are the mem- 
ory addresses within which the pro- 
gram is stored. 
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Commands 

Each command is stored in mem- 
ory as a number between and 
255 (00 to FF hexadecimal). Your 
machine-language programs are a 
series of these numbers. Working 
only with numbers is fine for short 
programs, but numbers are far harder 
to read in program listings than 



words. So, some early programmers 
or chip designers, or someone (1 don't 
really know who) developed "assem- 
bly language", to make it easier to 
program using machine language. In 
assembly language, each command 
is assigned a three-letter word. To 
distinguish between modes (I will 
explain these modes later), syntax is 



ADC 


— Add a number to the value 


*i.nx 


— Load the X index with a 




in the accumulator, 




number. 


AND 


— "AND" a number with the 


•LDY 


— Load the Y index with a 




accumulator value (this is a 




number. 




logical operation). 


LSR 


— Shift right one bit (ac- 


ASL 


— Shift left one bit (ac- 




cumulator or other). 




cumulator or other). 


NOP 


— No operation — time delay. 


BCC 


— Branch if carry flag is clear 


•ORA 


— "OR" a number with the 




(0). 




accumulator (this is a logi- 


BCS 


— Branch if carry 0at is set (1). 




cal operation). 


BEQ 


— Branch if result is zero (0). 


PHA 


— Push accumulator into 


BIT 


— Test bits in memory 




stack. 




against the accumulator. 


PHP 


— Push processor status into 


BMI 


— Branch if result is negative. 




stack. 


BNE 


— Branch if result does not 


PLA 


—Pull accumulator firom 




equal zero (0). 




stack. 


BPL 


—Branch if result is positive. 


PLP 


— Pull processor status from 


BRK 


— Force break; like END or 




stack. 




STOP in BASIC, 


ROL 


—Rotate one bit left (ac- 


BVC 


— Branch if overflow flag is 




cumulator or other). 




clear (0). 


ROR 


— Rotate one bit right (ac- 


BVS 


—Branch if overflow flag is 




cumulator or other). 




set{l). 


RTI 


— Return from interrupt. 


CLC 


— Clear carry flag. 


RTS 


— Return from subroutine: 


CLD 


— Clear decimal mode. 




like RETURN in BASIC; see 


Ctl 


— Clear interrupt disable bit. 




JSR. 


CLV 


— Clear overflow flag. 


SBC 


—Subtract a number from the 


•CMP 


— Compare a number with 




accumulator. 




accumulator. 


SEC 


—Set carry flag (1). 


*CPX 


— Compare a number and the 


SED 


—Set decimal mode (1). 




X index. 


SEI 


— Set interupt disable status 


•CPY 


—Compare a number and the 




(1>. 




Y index. 


STA 


—Store accumulator in mem- 


DEC 


— Decrement (subtract one 




ory. 




from) a memory location. 


STX 


—Store X index in memory. 


DEX 


—Decrement the X index. 


STY 


—Store Y index in memory. 


DEY 


—Decrement the Y index. 


TAX 


— "Dtansfer accumulator to X 


*EOR 


—"Exclusive — Or" a number 




index. 




and the accumulator (this 


TAY 


—Transfer accumulator to Y 




is a logical operation). 




index. 


INC 


—Increment (add one to) a 


TSX 


—Transfer stack pointer to X 




memory location. 




index. 


INX 


—Increment the X index. 


TXA 


— fVansfer X index to ac- 


INY 


—Increment the Y index. 




cumulator. 


JMP- 


—Jump to a new location ; 


TXS 


—Transfer X index to stack 




like GOTO in BASIC, 




pointer. 


JSR - 


—Jump to a new location 


TYA 


—Transfer Y mdex to ac- 




saving return address; like 




cumulator. 




GOSUB in BASIC; see RTS. 






LDA 


—Load the accumulator with 
a number. 







changed a little. 

Not just any combination of letters 
will do for any command. Whoever 
developed the 6502 assembly lan- 
guage "mnemonics" (a fancy name 
for our three-letter words) did a very 
good job m my opinion. For example, 
the command that puts a number in 
X is LDX, probably from LoaD the X 
register with a value. STX — STores 
the value in the X register, some- 
where in memory. CLC CLears the 
Carry flag. Because of this, reading 
a program listing becomes second 
nature quickly. 

If you try using assembly language 
in your computer, it won't work. To 
use assembly language, you must 
use an "assembler". An assembler is 
a piece of software that allows you to 
program in assembly language. Most 
machine language monitors include 
a mini-assembler. A mini-assembler 
is an assembler without all the fancy 
features of a full-featured assembler. 
But a good monitor will make up 
for this vrtth vety helpful editing 
capabilities. 

On this page is a list of commands, 
and an explanation of each one. If 
you have the Programmer's Refer- 
ence Guide, this information is on 
pages 140 and 141. If not, I suggest 
you get one, but this article will suf- 
fice temporarily. 

You may have noticed, while 
glancing down the list, that several 
commands have stars next to them 
(the star is not part of the command). 
You may also have noticed that they 
all apply to the accumulator, the X 
index and the Y index. They also fre- 
quently have the word "number" 
in theii definitions, (I made sure of 
this. In the Programmer's Reference 
Guide, this is not the case. This 
source uses "memory", which can 
be confusing). 

The syntax of assembly language 
is simple. First, you write the com- 
mand. For some commands this is all 
that is needed. But for most (includ- 
ing the ones with stars) you follow 
the command with a number. For 
example, LDY "number" or STA 
"numlDer". This "number" is what 
the next section is about. 

Immediate, Alisoluto 
or Zero Page 

These are the three modes of 
which this "number" can be. For 
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those of you who do not iinderstand 
what these words mean, there is a 
simple ejtplanation. By the way, the 
mysterious "S" symbol in our exam- 
ples indicates our "number" is in 
hexadecimal, and is absolutely nec- 
essary, at all times. Also, from now 
on, all numbering is in hexadecimal. 

Immediate — This simply means 
that the "number" is a legal value 
(a number from 00 to FF), and is 
the vaSue used by the command. 
Example: ADC #$10. Let's pretend 
that the value in the accumulator is 
20. Twenty plus ten equals thirty. 
Thirty is returned to the accumu- 
lator. The "# " symbol indicates 
immediate mode. 

Absolute — This means that our 
"number" is a legal address {0000- 
FFFF), and is the address of the 
value to be used by the command. 
Example: ADC S1C06. The accu- 
mulator value is stiL 20, The value 
in 1C06 is 15. Twenty plus 15 equals 
35. Thirty-five is returned to the 
accumulator. The lack of the '# " 
symbol and a four-digit "number" 
indicate absolute mode. 

Zero Page — This is very similar to 
absolute, except that the first two dig- 
its of our "number" are zeros [The 
address is in page zero.). Thus, they 
are omitted. Example; ADC $C5. The 
accumulator value is 20 again. The 
value in C5 is 40, Twenty plus 40 
equals 60. Sixty is returned to the 
accumulator. The lack of the "# " 
symbol and a two-digit "number" 
indicate zero page mode. 

All Che commands I listed with 
stars work in any of these modes. 
The others work in other modes. 
None of the starless commands work 
in immediate mode, but some work 
in absolute or zero page modes. 

Sometimes, especially in games, 
you will want to have a command ac- 
cess more than location, depending 
on a variable. For example, POKE 
7680+ X,42. This is quite common, 
very simple (and fun, I might add). 

Absolute Indexing — This is the 
group of modes which allow you to 
add a variable to the address you 
are working with. There are several 
modes of absolute indexing, but 
some of them are above our heads at 
this point. For now, let's stick writh 
absolute X and Y index modes. These 
modes are indicated by a ",X ' or ",Y" 



after the address of the command. 
First, let us think of the accumu- 
lator, the X and the Y indexes as the 
variables A, X, and Y respectively. 
Example; ADC $1C00,X. 

A = 20.X-06. 1C06=15. 
1COO+06(X)= 1C06, 
15 (1C06)+ 20=35, Thirty-five is 
returned to A (the accumulator). 
Example: ADC $CO,X. 

A=20.X=05. C5=40. 
C0+05(X) = C5. 
40(C5)+ 20(A) = 60. Sixty is returned 
to the accumulator, 

NOTE: In these modes, XoiY is added 
to the address, nevei the value. 
Only "Y" is legal for some com- 
mends. See the PRO to see 
which ones it will woik with. 

JuBt Absolute — Some commands 
run only in absolute or zero page 
mode. These are ASL. EOR. DEC, 
INC, JMP, JSR, LSR, ROL, ROR, STA, 
STX, and STY. This is very simple. 
Refer to the absolute and zero page 
sections above. 

They Just Do — A few more com- 
mands stand alone (no "number" is 
needed.) These are BRK, CLC, CLD, 
CLI, CLV, DEX, DEY, INX, INY, NOP, 
PHA, PHP, PLA, PLP RTI, RTS, SEC, 
SED, SEI, TAX, TAY, TSX, TXA, TXS, 
and TYA. They just do their job, no 
questions asked. 

Relative- — There are eight branch- 
ing commands. They are very similar 
to IF. . . THEN . , , in BASIC. They are 
BCC, BCS, BEQ. BMI, BNE, BPL, 
BVC, and BVS. When using an as- 
sembler, these commands look like 
"absolute mode only" commands. 
But, they are not,' I will explain how 
branching works later, but, briefly, 
instead of an address, the "number" 
is relative to the current address. 
"Relative" simply means that the 
jump is measured from the location 
containing this command, not just 
giving Che address of the destination 
and jumping there (absolute mode). 
You can go 128 backwards and 127 
forward. Without an assembler, you 
cannot break this rule. Using an as- 
sembler, it you break this rule the as- 
sembler should refuse to assemble it. 

Flags 

These commands branch to 
another part of the program when 
certain "Sags" are set (1) or clear (0), 



depending on which command you 
are using. Flags are not hard to un- 
derstand. The status register is one 
byte (eight bits). Each bit is a flag. A 
flag is one bit which contains a one 
or a zero if a certain thing does or 
does not happen, or is or is not set 
or clear. 

Only four flags have machine lan- 
guage branching commands built 
around them. These are the carry, 
zero, negative, and overflow flags. If 
the result of an operation is zero, for 
example, the zero flag is set. This 
would affect the BEO and BNE com- 
mands. If the result of an operation is 
negative, the negative flag is set (See 
BMI and BPL). If the result of an oper- 
ation is higher than FF or lower than 
00, the carry flag is set. The overflow 
Dag is too complicated to understand 
at this point. You will learn to use 
the overflow flag as you become more 
proficient at machine language. 

Two more bits, the decimal mode 
and interrupt disable bits, serve 
functions. If the interrupt disable bit 
is set, the VIC will cease to interrupt 
until the bit is cleared. If the decimal 
mode bit is set, the VIC goes into 
decimal mode. 

A Few Explanations 

Here are a few explanations about 
how certain difficult concepts work. 

Shift- ASL.LSR-Shift one bit 
one direction. If the 128 bit is shifted 
left, or the 1 bit is shifted right, then 
the carry flag is set and that bit is 
forgotten. Example: LSR $1C07 
1C07= 33. Return is 16, and the carry 
flag is set. 
{00100001-*00010000-r Carry) 

Rotate-ROL,ROR-Same as 
above, except the bit is not forgotten 
and the carry flag supplies the in- 
coming bit. 

( r*001000Ql-*Q00100QQ+ Carry i ) 

NOTE: If no "number" is given, ec- 
cumulatoT is implied, on both 
of the above. 

Compare-CMP,CPX,CPY. The 
value given is compared to A,X,Y 
and the correct flag is set (zero, neg- 
ative, etc.). To "compare" is to give 
the difference between two numbers, 
or, in this case, to set or clear the 
correct flags. Example: CMP #$20. 
A=40. 40-20=20. Zero flag is 
cleared, the negative flag is cleared, 
and the carry flag is cleared. 
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A Few Reminders 

Unless working with an assem- 
bler, you will not be able to write 
the commands you just learned 
as words. Instead, you'll have to 
POKE the programs in place. But, 
even if you don't have an assembler, 
take heart. Keep reading, and in the 
end, I'll show you how to convert the 
word commands to POKE statements. 
Just read about how to make pro- 
grams, and instead of typing them in, 
just write them on paper. When you 
get to the end, convert them to 
POKE statements and you're on your 
way. But, I do suggest that you buy 
the VIC 20 Programmer's Refer- 
ence Guide. 

Also, in the VIC 20 Programmer's 
Reference Guide, a memory map is 
on pages 170-177, A "memory map" 
gives all the locations in memory, 
and tells what they do. 

How To Build Programs 

Machine language programs are 
built logically. For example, to store a 
OF in lEOO {the first location in screen 
memory, 7680 in decimal), you first 
look over the commands. So you 
must do som.ething like LDX # $0F, 
then STX SIEOO. LDX loads the X 
register, STX stores the value of X 
somewhere. 

Now, let's try to subtract 50 from 
80. Look over the commands. Write a 
short program to do the subtraction. 
Do it on your assembler. 

Here is mine— ICOO LDA #S80 
1C02SBC#S50 
1C04BRK 

Run it from ICOO. The answer is 
in the accumulator now. Here is how 
it worked, LDA puts a number in A, 
SBC subtracts a number from A. BRK 
stops the program. Try doing the 
same program using the command 
ADC instead of SBC. 

Experiment Type in short pro- 
grams like the one above, but use 
different commands and see what 
happens. It's really fun! 

Next time, we will build more 
complex programs. Between now 
and then, practice. Experiment. Dis- 
cover. Try new things. Don't worry, 
you can't hurt the computer from the 
keyboard (short of using a hammer 
to type)! C 

John KaichBi, age 15, is a bomB-schooled 
student who lives in Colmar, Pennsylvania 
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Color Ibst 
for the 
Commodore 64 



by Ross Cherednik 



A little often goes a long way, as is 
the case with the program at hand. 
The twelve-line program displays on 
the screen all 4,096 possible combi- 
nations of border, background and 
print colors. With a running time just 
under two hours, each combination 
is on the screen about a second and 
a half. This gives enough time to 
quickly assess the clarity and aes- 
thetic effects of a combination. 
Pressing RUN/STOP will freeze a 
particular combination on the screen. 



Typing CONT allows the program 
to continue. Surprising combina- 
tions turn out to work quite well with 
each other and can create exciting 
visual effects. 

To run only border and background 
pairs and omit the print, simply de- 
lete lines 40, 70, 80, 90, and 100. 

Explanation of Program 

Line 10 clears the screen. 

Lines 20-40 prepare the 16 colors 

for use. 

Line 50 is the border color. 

Line 60 is the background color. 

Lines 70 and 80 spell 'COLOR 

TEST". 

Line 90 colors the print. 

Line 100 changes print color. 

Line 110 changes background color. 

Lin© 120 changes border color. 



5 REM ** PRCiGRRM 
10 PRIHT":^" 
20 FOR R=0 TO 
30 FOR B=0 TO 
40 FOR 0=^0 TO 
50 POKE 53280. 
60 POKE 53281.. 
70 POKE 1394,. 
1397. 
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15 
15 

15 
R 
B 



15 



POKE 

POKE 

POKE 
80 POKE 1480. 20; POKE 

POKE 1403.20 
90 FiDR J=0 TO 9: POKE 
100 FOR X=:l TO 1000 
110 FOR X=l TO 1000 
120 FOR X=l TO 1000 



3: POKE 1395. 15: POKE 1396.12: 
POKE 1393. IS 

1401.5:POKE 1402.19= 



(55666+J>/C:NEXT J 
NEXT K-HE^J C 
NEXT X^NEXT B 
NEXT X:NEXT R 
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64Typer 



by Judy Runge 



Here's a short program that will let you use your 
Commodore 64 and printer as a typewriter! Word pro- 
cessors are great for typing letters and such, but this 
program will let you fill out forms and other things which 
are better suited to a typewriter than a word processor. 
It will print as you type, both on your printer and on your 
display screen, and will display a cursor and ruler on your 




screen to show you which column will print next. When 
you've finished typing, just press CTRL-c (no dash, just 
the control key and the lowercase "c" together) and you 
will return to BASIC. 

For those of you who are just learning to program, 
I've included the foUowing description of what each 
line does: 

Line Description 

110 Initialize the line counter. 
120 Open the printer channel, 

130 Switch to lower case, disable the SHIFT/COMMO- 
DORE key, and clear the screen. 
140 Print the ruler. 
150 Here we print the cursor character. Then we back 

up one column so the next character vM print over 

the cursor. 
160 Get a character. If none are there, wait until one 

shows up! 
170 See if the character is a CONTROL-c, K so, we want 

to quit. 
180 If the character is a RETURN we have to add one 

to our line counter and then prmt a "blank" to erase 

our screen cursor character, 
190 Now we print the character on both the screen, 

and to the printer. 
200 If this is the end of the screen, then vi^e reset our line 

counter and print a new ruler. 
210 Go back and get another character. 
220 This is where we come to quit. To make sure that 

we exit our program in an orderly fashion, we will 

switch back to uppercase and re-enable the 

SHIFT/COMMODORE key. FinaUy, we dearth© 

screen before we end. 



641Vper 








100 REM TYPER ^^ 
lie LINES=0 ^AJ/ 


170 


IF A$=CHR${3)G0T0 220 




180 


IF A$=CHR$(13)THEN 




120 OPEN 14,4,8' 




LINES = LINES-H:PRTNT" "; 




130 PRINT CHR$(14) ,CHR$(8) , 


190 


PRINT A$; :PRINT314,AS; 




CHRS (14 7) 


200 


IF LIMES=23 THEN:LINES=0 




140 PRINT" : 1. . . . 




:GOTO 140 




: 2 : 3 : 4 


210 


GOTO 150 




150 PRINT CHR$(127) ; 


220 


CLOSE 14:PRINT CHR${9), 




:POKE 211, (PEEK(211)-1) 




CHR$(142) ,CHR$(147) 




150 GET A$:IF A$=""GOTO 163 


230 


END 


C 




i y k A aJ [ — k-^v^ 



l^pe Images on the CommodoiB 64 



by 

Elizabeth 

Deal 



Watch 64 Load 



100 RE'^ 330 

lin REM C64 TAPE SNAPSHOTS 

ELIZABETH DEAL 

120 REM 34 

130 REM FILL C64 WITH SE5 (229), 353 
SAVE. RE'wIND tape. PUSH 360 

PLAY. 370 

140 REM RUN THIS. USE 'CTRL' TO 380 

KILL THE MOTION (OR UNCRASH), 
150 REM AND TO TAKE STOCK OF 390 

WHAT FACES YOU. HAVE FUN! 
160 : 400 

170 IF C=0 THEN DIM V(19) 410 

:FOR J=896 TO 941:READ V 

:C=C+V:POKE J,V:NEXT J 420 
180 IF C06679 THEN STOP 430 

190 X$=" [SPACE391 " 

200 X$=X$+CHR$(157)+CHR$(148)+» " 
210 PRINT CHR$(147)CHR$(14) ; 440 
220 FOR J=0 TO 19:PRINT X$:NEXT J 
230 SYS 896: REM END 450 

240 DATA 120,160,0,169,4,132,186, 

133 460 

250 DATA 187,174,1,220,224,251, 470 

240,28 
250 DATA 173,13,220,41,16,240,3, 

159 480 

270 DATA 122,44,159,99,145,186, 

230,186 490 

280 DATA 208,238,230,187,166,187, 500 

224,7 

290 DATA 144,230,176,213,88,96 510 

300 : 520 

310 REM *** DON'T TYPE BEYOND 

THIS POINT UNLESS YOU MUST 530 
*** 

320 REM '23' IN •IFV>=23' (LINE 540 
440) MAY NEED A FIX IP 
THINGS DON'T 560 



REM WORK 
SMALLEST 
NUMBERS. 



IN IMINUTE. USE 
OF THE BIGGEST 



THE 



L$="[LEFT2,RVSr' 
S$=" [SPACE21 " 
R$=" [RVOFF, RIGHT] " 
PRINT"ia SEC. THINKING"CHR$ 
(19); 

A=10 24:AA=A:BY=A:MF=1:E=1;K=0 
:P=0:V$="" 
FOR J=A TO A+767 
IF PEEK(J)<>122 THEN PRINT 
CHR$(29) ; :NEXT J:GOTO 470 
V= J-AA-1 : PA=AA : AA=J 
IF V>2 THEN PRINT 
L$RIGHT$(S$+MID$(STH$(V) ,2) , 
2); 

IF MF THEN IF V>=23 THEN 
BY=PA:MX=V:MP=0 

IF E THEN IF MF=0 THEN V{K)=V 
:K=K+1:IF K=20 THEN E=0 
PRINT R$; :NEXT J 
IF E OR NOT V(0) >V(1)THEN 
PRINT CHR$( 19) "CAN'T SEE - 
LEADER? GAP?";:GOTO 540 
POKE BY, 42: PRINT" * STARTS A 
BYTE[SPACE4] " 

FOR J=2 TO 15 STEP 2:XS="0" 
IF V{J)>V(J+1)THEN X$="l" 
:IF J<18 THEN P=P+1 
VS=X$+V$:NEXT J: PRINT V$; 
PRINT", PARITY"; 
:PP=-(V(18)>V(19) ) :PRTNT PP; 
IF(1 AND P)=PP THEN 
PR I NT "MUFFED. UP"; 
INPUT" [SPACE 3] DO MORE";Y$ 
:IF ASC(Y$)=39 GOTO 170 
REM 
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Ikpe Images 



Continued 



This program permits you to watch 
the cassette tape in action. It uses a 
crude timing device, without clocks, 
interrupts and turning off the screen. 
It shouldn't really work at all — we're 
working on a time-sloppiness scale of 
about 30:1 But every sample I've 
taken gave correct results. The Com- 
modore recording method is fool- 
proof enough that while I would 
never trust LOAD to this sort of a 
routine, it is just fine for learning 
what is going on, normally behind 
a blank screen. 

Now you can see the show in real 
time (well, almost). Just follow the 
directions in the REM lines. I strongly 
recommend that you do not type in 
the second part of the listing (below 
DATA lines), but, rather, figure out for 
yourself what is happening. It's more 
fun that way. In case you fail to see 
the patterns, the BASIC program is 
there to unravel some mysteries. 

As far as I can tell, nothing can go 
really wrong. If the machine seems 
crashed — and it will if you RUN 
before pressing the PLAY — the 
CONTROL (CTRL) key will get you 
out of trouble. It is also used to stop 
the show. 

The final INPUT statement some- 
times appears over other information 
oiT the screen. Don't worry about it, 
just type Y or some other letter and 
the 64 will take care of the rest. 

If you are interested in the mi- 
crosecond details of this thing, here 
are three good sources for further 
snooping: 

nif O ^^®^ West. Piogiamming the 
WUJ Pet/CBM, COMPUTE! Books. 



bm 
tktee 



Nick Hampshire, The PET Re- 
vealed, Computabits in the U.K. 



C64 ROMs. 



Fun with 
REM 



by John Stilweil 



Durmg my wanderings through 
the wonderful world of 2,0 BASIC, 
I've run across a lot of unique combi- 
nations. The discovery of these tricks 
is half the fun. Finding uses for them 
is the other half 

The REM statement has got to be 
the most neglected of all the com- 
mands. In college, students are 
taught "structured" programming 
stressing the importance of in-code 
documentation or RE Ms. Unfortu- 
nately, most home computer users 
have never had any classes and 
rarely have any documentation past 
the "written by" line. This is proba- 
bly why the RE Ms secret uses have 
stayed a secret for so long. 

Probably the flashiest thing you 
can do is make a line statement in- 
visible. We accomplish this by put- 
ting DELETE characters m a REM 
statement. Setting this up is not 
very hard. 

First of all, take a line, any line, 
and add a REM with two quotation 
marks in it. 
10 PRINT 'THIS IS A TEST" :REM" " 

Now put the cursor on the last 
quotation mark and push the insert 
key approximately twenty times. The 
computer now will print the charac- 
ter code of any of the commands' So 
push the DELETE key twenty times. 
If all has gone correctly, there should 
be twenty T's mside dark squares. If 
so, push RETURN to enter the line 
and we're done. 

List line ten and you should see 
only "10 PRINT". Where's the rest of 
the line? It was there a moment ago. 
To prove line ten is okay, run it. If you 




want to erase the entire line, merely 
add more DELETES. 

Another trick with the REM makes 
for a simple list killer. All you have to 
do is add a shifted "L". 
5 PRINT" ANOTHER TEST" :REM L 

Durmg a listing, whenever one 
of these REMs are encountered, the 
listing will stop and you'll set a syntax 
error. Yet the program will run fine. 

Go back to line five and change the 
shifted "L" to a shifted "M". List line 
five and the "M" has changed to a 
"FOR". This is because all of the 
BASIC commands are stored in mem- 
ory as one-letter tokens. The token 
for "FOR" just happens to have the 
same ASCII code as the shifted "M". 

If something is inside quotation 
marks, the computer looks at it one 
way. If a character is outside, it's 
considered to be a token. Our REM 
statement doesn't have quotation 
marks m it so the computer tries to 
untokenize our shifted "L". The rea- 
son we get the syntax error is be- 
cause there is no command that 
matches this token. Thus the 
computer bombs when it sees 
the shifted "L". 

If there is a program that you want 
to keep secret, scatter a few of the 
REMs throughout your code. It may 
not keep people out forever but it 
should slow thera down. Especially if 
you make the line invisible first. C 
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More Boolean Foolin' 



by Marilyn SaUee 



Jim Butterfield's article, "Foolin' with Boolean", in the 
Summer, 1983, issue introduced you to the Boolean vari- 
^les, but there is even more to the Boolean truth tablesi 
Crunching your programs to make a whole series of IF . . . 
THEN statements into one statement is done by com- 
bining the Boolean truths with an ON statement. 

The Boolean in your Commodore computer has the 
power to look at an arithmetic expression as a true or 
false statement. For example, in the statement X=(Y=7), 
if Y= 7 is tme then Boolean says X= — 1 (tme value). If 
Y is not 7, then X= (false value). Butterfield showed 
you all sorts of interesting things you can do with this 
handy trick — use it in IF. . . THEN statements and for 
decision arrays, for instance. Another powerful way 
to use it is in an ON statement. 

Look at the following subroutine: 



10 


PFaNT"ADD" , . "SUBTRACT" , , 




"MULTIPLY",, "DIVIDE",,,, 




"CHOOSE ONE" 


20 


GET A*! IF A$="" THEN 20 


30 


IF A$="A" THEN 100 


^■0 


IF A$="S" THEN 200 


50 


IF A«="M" THEN 300 


&0 


IF A$="D" THEN ^00 


70 


GOTO 10 



This is a common way to branch from a menu of 
choices. But the Boolean tmth tables can combine lines 
30,40,50,60, and 70 all into one. Here is the new line 30: 



30 0N-(A*="A">-2* (A*="S">-3K (A»= 
"M" ) -4* CA$="D" > SOTOIOO, 200, 
300. 100: GOTO 10 



Looks confusing. Let's break this down. 

First, remember that if the arithmetic expression is 
tme, it's given the value of minus one. If it's false, it is 
given the value of zero. But the ON statement only takes 
positive whole numbers. The first thing we have to do is 
make that tmth value of minus one into a positive whole 
number. That's what the minus numbers between the 



parentheses do. (- 1)*(- 1)= + 1, (~2)*(- 1)= + 2, 
(- 3)* {- 1)= + 3, and so on. 

The other important point is that false arithmetic 
expressions are given the value of zero, and anything 
multiplied by zero is zero. So (- 1)* (0)= 0, {- 2)* (0)= 0, 
(-3)"(0)=0,andsoon. 

Since the GET statement can only return one charac- 
ter, just one of the expressions inside the parentheses 
can be true at a time. If A$= "A" then it cannot be "S", 
"M" or "D". So if one expression is tme, then the ON 
statement can go to only one place, the line number 
selected by that tme statement. All the other (false) val- 
ues are zero. 

One situation you have to watch out for is if all the 
expressions are false. In that case the ON statement 
becomes ON THEN . . . what. That is what the 
GOTO 10 at the end is for. 

But just because I used a GET statement does not 
mean that is the only choice. Let's look at an- example: 



10 


INPUT" [CLEAR]WHAT MONTH";M$ 


15 


MS=LEFT${M$,3) 


20 


0N-(MS="JAN")-2* (M$="FEB")-3* 




(M$ = "MAR")-4* (M$="'APR"}G0T0 1 




00,200,300,400 


30 


0N-(M$="MAY")-2* (M$="JUN")-3* 




(MS="JUL")-4* (M$="AUG")GOTO 5 




00,600,700,800 


40 


0N-(M$="SEP"}-2*(M$="0CT")-3* 




(MS="N0V")-4* (M9="DEC")G0T0 9 




00,1000,1100,1200 



This subroutine allows you to check a whole string to 
find the one that is true, and then branch from there. If 
none is true it goes back to the original INPUT. Line 15 
allows the user to input the whole month's name, like 
August, and the program will chop it off to Aug. 

You can string as many of these ON statements to- 
gether like this as suits your purpose. But remember 
that each line must send the ON statement to the proper 
GOTO for the tme expression, This is why in line 30, 
even though May is the fifth month, it is the first expres- 
sion being tested in that line. If it is tme then you want 
the ON statement to GOTO the first Une assignment, 
not the fifth. 

This type of Boolean tmth variable in an ON state- 
ment is most useful wherever you have several IF, . . 
THEN statements in a row. 
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Boolean 

10 INPUT" [CLEARjWHAT MONTH";M$ 
15 M$=LEPTS{M$,3) 

20 ON- (M$="JAN" ) -2* (M$="FED" ) -3* 
(M$="MAR") -4* (M$="APR")GOTO 1 
00,200,300,400 
30 ON- CMS="MAY")-2* (M$="JUN")-3* 
(M$="JUL")-4* {M5="AUG")G0T0 5 
00,600,700,800 
40 ON- (M$="SEP") -2* (M$="0CT"}-3* 
(M$="NOV") -4* (M$="DEC")GOTO 9 
^ 00,1000,1100,1200 
100 PRINT" [D0WN2] JANUARY IS THE 
FIRST [SPACE2] MONTH AND HAS 3 
i DAYS":GOT0 2000 
200 PRINT" [D0WN2] FEBRUARY IS THE 
SECOND MONTH AND HAS 28 OR 
29 DAys":GOTO 2000 
300 PRINT" (D0WN2] MARCH IS THE TH 
IRD{SPACE2] MONTH AND HAS 31 
DAYS":GOTO 2000 
400 PRINT" rD0K'N2] APRIL IS THE FO 
URTH[SPACE2]M0NTH AND HAS 30 
DAYS": GOTO 2000 
500 PRINT" [D0WN2] MAY IS THE FIFT 
H[SPACE2] MONTH AND HAS 31 DA 





YS":G0T0 2000 


600 


PRINT" [DOWN 2] JUNE IS THE SIX 




THfSPACE2] MONTH AND HAS 30 D 




AYS":G0T0 2000 


700 


PRINT" [D0WN21 JULY IS THE SEV 




ENTHfSPACE2] MONTH AND HAS 31 




DAYS":G0TO 2000 


800 


PRINT" [D0WN2] AUGUST IS THE E 




IGHTHfSPACE2] MONTH AND HAS 3 




1 DAYS":G0T0 2000 


900 


PRINT" [D0KH2] SEPTEMBER IS TH 




E NINTH [SPACE2] 




MONTH AND HAS 30 DAYS" 




:G0T0 2000 


1000 


PRINT" [D0WN2] OCTOBER IS THE 




TENTH [SPACE 2] 




MONTH AND HAS 31 DAYS" 




:GOTC 2000 


1100 


PRINT" fD0WN2] NOVEMBER IS TH 




E ELEVENTH MONTH AND HAS 30 




DAYS":GOTO 2000 


1200 


PRINT" fD0WN2] DECEMBER IS TH 




E TWELFTH MONTH AND HAS 31 




DAYS":GOTO 2000 


2000 


FOR 1 = 1 TO 3000:NEXT:GOTO IC^, 



Get the inside story on Commodore computers, 
direct from Commodore. Discover all the latest devel- 
opments in software, hardware and books... learn 
more about computing ... get many programs to type 
and save. You get all this and more when you sub- 
scribe to Commodore's own user magazines, 
Power/Play and Commodore Microcomputers. 

DON'T MISS ANOTHER ISSUE! 
Use the subscription card enclosed! to 

SUBSCRIBE NOW! 
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Reading the 
Commodore 64 
Keyboard 



by Ray Sidney 



Have you ever w/ondered exactly how to read the 
keyboard on the Commodore 64 without using the 
Kemal and BASIC subroutines that are built into the 
machine? Perhaps you want to be able to tell whether 
the user is holding down the < RETURN> key (not just 
whether < RETURN> has been pushed, but whether it 
is down at a given moment). The Piogiammer's Refer- 
ence Guide has a bit to say, but it's not really very 
comprehensive on the subject. So here it is, folks, the 
way to directly read the keyboard from BASIC or from 
machine language. 

First, you have to POKE a specific number into mem- 
ory address 56320 (SDCOO). Then you read memory ad- 



dress 56321 (SDCOl) and mask the desired bits and 
check for zeros. Now, let's see exactly how to do all that. 
Look at Tkble 1. On the left, it has the number that you 
must POKE into 56320 for a certain key. Then read ad- 
dress 56321, and logically AND that value with the 
specified mask shown on the top row. Here's an 
example to check if the "C" key is being held down; 
10 POKE 56320.251 : IF (PEEK(56321)AND16}=0 
THEN PRINT "C" 

You can see that first it POKEs a 251 into 56320 (251 is 
the number on the left side corresponding to "C") and 
then it ANDs the byte from address 56321 with 16 (16 is 
the number from the top corresponding to "C"). The only 
tricky part is that if a key is being held down, instead of 
producing a one in that bit, it causes a'zero, and if it is 
not held down, you read a one. The exact same ap- 
proach works in machine language. 

LFT SHF represents the left shift key or the shift lock 
key. RGT SHF is the right shift key. COM represents the 
key with the Commodore logo on it. CTR is the control 
key, LFT RGT means the left/right cursor key. UP/DWN 
is the ujydown cursor key. RET is return. The rest of the 
keys should be pretty obvious. 



Table 1. 



254 
253 
251 
247 

191 
12? 



128 ! 
! 

IJP ! 

DWN ! 

LFT ! 

,SHF ! 



H 



RiJH ! 
STP ! 



S4 ! 

f; 

E 
T 

U 


■T 
Q 



! 32 


16 


8 


4 


2 


1 1 


F3 


Fl 


F7 


LFT 
RGT 


RET 


INS ! 
DEL ! 


! S 


z 


4 


R 


\-\ 


3 ! 


F 


c 


6 


D 


R 


5 i 


! H 


E 


o 

«_l 


G 


V 


1 ! 


! K 


ri 


0. 


J 


I 


3 ! 


! C 


> 


- 


L 


F' 


+ ! 


! ~ 


RGT 
SHF 


CLR 

Hon 


] 

,1 


* 


£ i 


! con 


S;F'C. 
ERR 


1^ 


CTR 


■^ 


1 ! 
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user groups 



User Group Listing 



ALABAMA 

HuntsviUe PET Users Qub 
9002 Berclair Road 
HuntOTille, AL 3EB02 
Contaa: Hal Carey 
Meetings: BVory2nd 
Thmsday 

Rivet chasa Commadoie Usurs 
Group 

617 Grove St. 
Birmingham, AL 35209 
(205)988-1078 
Ken Browning 

Wiregiass Micro-Campulat 

Society 

Commodore SIQ 

109 Key Bend Hd. 

Emorprise. AL 36330 

(Z06) 347-7564 

Bin Brown 

TlgetByta; E. Alabama 

CBM64 

Users Group 

t^o The Computer Store, Inc. 

Midway Flaza 

Opdika,AL 36901 

Jack Parsons 

1st & 3id Wed. of Month 

The Birmingham Commodoio 

Computer Club 

Bumingham. AL 

(205)923-9260 

Hairy Jonea 

Cdnunodore Club of Mobile 

3868-HRu6Malson 

MoMIe.AL 36608 

(2055343-1178 

Tom Wyatt 

3rdThuie, of month 

Shoals Commodota Users 

Oroup{SCUa) 

209 Lakeshoie Di. 

Muscle Shoals. AL 35661 

Geo. Taytor 

2nd & 4th Tues. of month 

1920-AAvsnueC 

BrooWy 

MobUe.AL3661B 

(205) 661-1973 

Howard Cridor 

ALAStCA 

COMPOOH-T 

o'o Box 118 

Old Harbor, AK 99643 

(907) 286-2213 

AJfiska 84 Computet C!ub 

o'o Line 49 Management 

P.O. Box 6043 

Anchorage, AK 99502 

Flirt City Users Group 

PO Box 6692 

Ketchikan. AK 99901 

(907) 225-5695 

James Llanos 

ARIZONA 

VIC Usais Gioup 

26I2E.Covma 

Mesa. AZ 85203 

Contact; Paul Muffuletto 

CataiinaCommodoie 

Computer Club 

2012 Avenida OulUaimo 

Tucson. AZ 85710 

(602) 296-6766 

Qeotge Pope 

let TUBS. 7: 30 p.m. 

Ceritial Ailzomi PET People 

B42 W. Calie del Norte 

Chandler, AZ 85224 

(602)899-3622 

Hoy Schahier 



ACUG 

c/o Home Cranputer Service 

2028W. CamelbackRd. 

Phoenix, AZ 85015 

(602)249-1186 

Den Deacon 

First Wed of month 

West Mesa VIC 

2351 S. Standage 

Mesa, AZ 86202 

Kenneth S. Epstein 

Anzona VIC 20-54 Usets Club 

232 W. 9th Place North 

Mesa. AZ 85201 

Donald Kipp 

Arizona VIC & 64 Users 

904 W Mailboio Circle 

Chandler, AZ 85^4 

(6CE) 963-6149 

Tbm Monson 

ARKANSAS 

Commodote/PET Usets Club 

Conway Middle School 

Davis Street 

Conway. AR 72032 

Contact Geneva Bowlln 

Booneville 64 Club 

c/o A. R. Hfldoiich 

Elementary School 

401 W. 5th St 

Boonoville.AR 72927 

MaryTaff 

The Siloam Commodoie 

Computer Club 

P.O Box 88 

Siloam Springs, AR 72761 

(501) 524-5624 

Ken Eman liaison 

RUBsellviUo Commodore 

User Group 

401 S. ArbiigtonDi. 

RusseUvma. AR 72801 

(501)967-1868 

Bob Btaieal 

Aikansas Rivei Valley 

Commodore Users 

401S. AtllngtonDi. 

Russellvillo.AR 72801 

(501)967-1868 

Bob Biazeel 

CALIFORNIA 

SCPUO Southern California 

PET Users Gio up 

c/o Data Equipment 

Supply Coip 

S315FiieEtoneBhd. 

Downey, CA 90241 

(213) 923-9361 

Meetings: Flirt Tuesday of 

each month 

California VIC Users Gmup 

ofo Data Equipment 

Supply Corp. 

S315 Fiiosione Blvd. 

Downey CA 90241 

(213)923-9361 

Meetings : Second TVies. of 

each month 

Valley Computer Club 

1913 Booth Road 

Ceres. CA 95307 

PUG of Silicon Valley 

223K Rancho Ventuia Road 

Cupertino. CA 95014 

Lincoln Computer Club 

750E. YosomiiB 

Mantfica. GA 95336 

John Fung, Advisor 

PET on the An 

525CiestlakBDnve 



San Francisco, CA 94132 

MaxJ Babln, Sacietary 

PALS (Pets Around) 

Livoimoro Society 

886 South K 

Liveimore, CA 94550 

(415)449-1084 

Every third Wednesday 

7.30p.m. 

Contact: J, Johnson 

SPHINX 

7615 Leviston Ave. 

El Ceinto.CA 94530 

(415) 527-9286 

Bill MacCracken 

San Diego PUG 

c/o D Gostaiakis 

3562 Union Stt&et 

(714)235-7626 

7 a m. -4 pm. 

Walnut Creeft PET 

Users Club 

1815 Ygnflcio Valley Road 

Walnut Cieek, CA 94596 

Jutupa Wliards 

8700 Galena St. 

Riverside. CA 92609 

781-1731 

Wallet J Scott 

The Commodoie Connection 

2301 Mission St. 

Santa Crui. CA 95060 

(408)425-8054 

Bud Massey 

San Fernando VsJley 

Commodore Users Group 

21208 Naahville 

ChatswDith, CA91311 

(213)709-4736 

Tom Lynch 

2nd Wed 7:30 

VACUUM 

277 E. 10th Ave. 

Chico, GA 9^28 

(916) 891-8085 

Mike Casslla 

2nd Monday ol month 

VIC 20 Users Group 

2791 McBiide Ln # 121 

Santa Boso, CA 

(707) 575-9838 

Tyson Verse 

South Bay CorainodoiB 

Usera Group 

1402 W. 2l8th St 

Tonance. CA 90501 

Contart- Eail Evans 

Slo VIC 2tl'64 Computet Club 

1766 9th St. 

LosOsoa. CA 

Tlie Diamond Bar R.O P 

Useis Club 

2644 Amalgado 

Haeiondo Hgts., CA 91745 

(213) 333-2645 

Don Mcintosh 

Commodore Interest 

Association 

c^o Computet Data 

14660 La PazDr 

VictorvDlB, CA 92392 

Maik Finley 

FaiifioldVIC20Chib 

1336McKinlBySt. 

Fairfield, C A 94533 

(707) 427-0143 

Al Biewor 

]st&3rd'nies at7p.m. 

Computer Bam 

Computer Club 

319 Main St. 



Suite #2 

Salmas, CA 93901 

757-0788 

S. Mark Van del bill 

Humboldt Commodore Group 

PO Box 570 

Areata, CA 95521 

R Turner 

Napa Valley Gomroodore 

Computer Club 

c/o Liberty Computerwaie 

2680 Jsffeison St 

Napa. CA 94558 

(707) 252-6281 

Mick Winter 

let & Sid Mon. of month 

S.D. Eart County C-64 

User Group 

6353 Lake Apopka Place 

San Diego. CA 921 19 

(619) 698-7814 

Lintla Schwartz 

Commodoie Users Group 

4237 Pulmetia Cl. 

Santa Maria. CA 93455 

(806) 937-4174 

Gilbert Vela 

BayAtea Homo 

Computet Agso 

1332 Pine St 

Walnut Cieek. CA 94598 

(415) 932-5447 

Cliff Downing 

Amateurs and Artosians 

Computing 

PO. Box 682 

Cobb, CA 95426 

MBntecaVIC20UEeis 

Oiganlralion 

429 N. Main St. 

Manleca. CA 95338 

Gene Rong 

Pomona Valley Commodoie 

Users Group 

1401 W. 9th, #77 

Pomona, CA 91766 

(714) 620-8889 

Mark Joetger 

1st & 3rd Wed. of month 7 p.m 

VICTORn-ThoVIC20 

Users Group 

PEC #1, Box 23467 

APO San Francisco, CA 96230 

Wesley Clark 

The Valley Computer Qub 

2006 Magnolia Blvd. 

Burbank. CA91S06 

1st Wed, 7 p.m. 

The Commodore Tbch. Users 

of Orange Co. 

PO Box 1497 

Casta M^a. CA 92626 

(714)731-5195 

Roger Fisher 

VIC 20 Software 

Exchange Club 

10630 Sky Cit da 

Grass VaUey.CA 95945 

Daniel Upton 

C-64 Wert Orange County 

Users Group 

P.O. Box 1457 

Huntington Beach. CA 92647 

(7141 842-4484 

Philip Putman 

2nd 6t 4th Tues. of month 

Antelope Valley Commodore 

Usets Group 

FOB 4436 

Lancaster. CA 93539 

(806) 942-2626 



James Haner 

IstSatuiday 

Diabki Valley Commodore 

Usets Group 

762 Ruth Dr 

Pleasant Hill, C A 94523 

(415) 671-0145 

Ben Braver 

2nd & 4th Thiirs. 7:30 p.m. 

Commodoie ConnecUon 

1 1652 Valveide Ave. 

RlVEiside. CA 92505 

(714) 689-7447 

TbnyAlvaiBZ 

CA. Area CommodoiB 

Tarmlnal 

Users Society 

CA.C.TUS 

PO Box 1277 

Alta Lama. CA 9170! 

Danell Hali 

20/64 

P.O. Box 18473 

San Jose. CA 95158 

(408)978-0546 

1st Sun. of month [6-9 p.m.) 

8120 Sundance Dr 

Otangevale, CA 95662 

(916) 969-2028 

Robyn Graves 

Softvi/aie64 

35 California Dr 

Butlingarae. CA 94010 

(415)340-7116 

Mario Abad 

Sacramento Commodoia 

Users Group 

8120 Sundance Dr. 

Oiangevale, CA 95662 

(916) 969-2028 

Robyn Graves 

Peninsula Commodoie 

Users Group 

549 Old County Rd 

San Caiios. CA 94070 

(415) 593-7697 
Timothy Voiy 
2iidThuxs. of Month 

San Francisco CommtxiDie 
UseisCioup 
278-27tli Ave (f 103 
San Francisco, CA94121 

(416) 387-0226 
Hogei Tieice 

South Bay Commodoie 64 
UsEts Group 
P.O. Box 3193 
SanVsidio.CA 95073 

Commodore 64 West 

Computet Club 

2917 Colorado Ave 

Santa Monica, CA 90404 

(213)828-9308 

Don Campbull 

Sixty Four ura 

4413 E.Iowa 

Fresno. CA 93702 

(209) 252-0392 

DebChnstonsen 

C-64A7IG 20 Users Group 

Pasadena City College 

Ctcadian Room 

Pasadena, CA 

(734) 593-4833 

Chuck Cypher 

7 p m. 1st Si 3id Thuisdays 

M arln Commodore 

Computer Club 

620 Del Ganado Rd. 

San Rafael, CA 

(415) 479-0426 

2nd Wed, of month 7:30p.m. 
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COLORADO 

VIGKIMPET Users Group 

4 Wanng Lane. Gieanwood 

Villnge 

Littlewn, CO 80121 

Conlflct Louis Hoehia 

Colorado Cocmnodme 

Cctnpulei Club 

2187 3 QoldonCt. 

Denver, CO 80227 

986«77 

JackMnss 

Meat 2nd Wed. 

Cofmmodore Usais Group 

Box 377 

Aspen, CO 81612 

(303) 925-5604 

Ray Biooks 

1st Monday In the evenings 

CONNECTICOT 

John F Gaibanno 

Skiff Lane Maeons Island 

Mysuc. CT0e355 

(203) 536-9789 

Commodore User Qub 

Wetharaheld High Schod 

411 Wcteott Hill Road 

WetboBfleld.CT 06109 

Contact: Daniel O. Sponoos 

VIC Users Club 

o'o Edwaid Bais^czewaki 

22 TUtUUs Road 

West Hartford. CT 06107 

New London County 

Cortynodore Chib 

DoolitUo Road 

Proston.CT 06360 

Goiitflot: Dr.WaltorDoollttlu 

The Commodore East Ubhts Group 

ie6 B S Brgdow Rd 

Hampton. CT 06247 

(203) 456-0108 

DISTHICT OF COLUMBIA 

US Computer Club 

US O Outreach Center 

207 Beyer Rd..3W 

Wash ington , DC 20032 

Steven CSucnthet 

FLORIEA 

Jacksonville Aiea 

PET Society 

«1 MoiiumerirRood. #177 

Jacksonvillo. FL 32211 

Richard Prestien 

6278 SW 14th Street 

Miami, FL 33 144 

South Florida 

PET Users Oroup 

OavaYbung 

7170 S.W nth 

West Hollywood. FL 33023 

(305) 9^7-6982 

PETs and FrienrJs 

129 NE 44 St. 

Miami. FL 33137 

Richard Plumer 

Sun Coast VICs 

P.O. Best 1042 

Indian Rocks Beech, FL 

33535 

Mark WoddeU 

Bay Commodore Uaeis Qroup 

e/o Gull Coast Cooijjuter 

Exchange 

241N.Tyn(laUPkwy 

P.O. Box 6215 

Panama City, FL 32401 

(904) 785-6441 

Rlcliaid Ecofield 

GarnesvillD Commodore 

Users Club 

36Ol-20ASW31stDt 

aaineHvlKo.FL 32608 

Louis Wallace 

Brandon Users Group 

loe AngiewDod Dr. 

Biandon.FL 33511 

(8131685-5138 

Paul Daugherty 

Brandon Commodore Users Group 

414 E. LumsdenRd. 

Brandon, FL33B11 



Gainesville Commodore 

Users Group 

Santa Fa Community Cdlege 

GainesmlJe. FL 32602 

JamesG. BirdseU 

Commodore Computer CUib 

P,0 Box21138 

St Petersburg. FL 33742 

(813) 522-2647 

Chuck Fechko 

Commodore Users Group 

545 E. Park Ave. 

Apt #2 

Tallahassee. FL 32301 

(904)224-6286 

JunNeill 

The Commodoie Connecuon 

PO, Box 6684 

West Palm Beach, FL 33405 

ElShiltOH 

PO Bex 548 

Cocoa, FL 32922 

Mike Schncdce 

Sat. mommgs'Bvery 4 to 6 weeks 

Miami 2a'64 

12911 S.W 49th St. 

Miami. FL 3317B 

(305) 226-1185 

TUropa Bay Commodoia 

Computer CI lib 

10208 N. 30th St 

T&mpa. FL 33612 

(813) 977-0877 

Ccmmodere Computer Qub 

P.O. Box 9726 

Jacksonville, FL 32208 

(904) 764- M&7 

David Phillips 

2iici a 4lh Tucs. ol Month 

VIG'64 Heonland Users Group 

mo Bartow Rd. #23 

Lakelaild,FL 33801 

(813) 666-2132 

Tbm Keough 

4tli Wed. of Month at PRC 

64 Educators Users Group South 

FDLRS-South 

9220 SW. 52nd Tenace 

Miami. FL 33165 

(305) 274-3501 

Dr. EydiB Slosne 

64 Educators Users Oioup North 

16a30N.E.2ndAve. 

North Miami Beadh. FL331B2 

(305)944-5646 

Robert Figueroa 

Suncciast64S 

(yo Little PiotoEsor Book Center 

2395US. 19 North 

Palm Harbor. tX 33563 

(613)765-1036 

Curtis MiUor 

Iceland VIC 20 Users Group 

2450ShiidyALTe.5Dr. 

Molbeiiy, i-L 33860 

Broward Commodore Users Group 

13 Spirming Whe^ Lane 

Tamaiac. FL 33319 

(3O5)726-.1390 

Lewis Horn 

OEORGIA 

VIC Educators Users Group 

Qierokee County Schools 

110 Academy St 

Canttm. CA 30114 

Di.Ai Evans 

Bklg 68. FLETTC 

Glynco, GA 31524 

Richard L. Young 

VIC-tiniB 

PO. Box 467062 

Atlanta, G A 30346 

(40'1) 922-7086 

Erie Ellison 

Golden Isles Commodore Users Club 

Bldg. 68, FLETC 

Glynco. GA 31524 

Richard L Young 

Commodore Club of Augusta 

1011 River Ridge Rd. 

Apt. #14-A 

Augusta, GA 30909 

David Dumas 



Dataswapper Users Group 

1794 Alabama Ave. 

Albany, GA 31705 

(912) 436-5596 

David Via 

HAWAH 

Commodore Useis Group of Hanolulu 

CoPSH 

824 Bamuster St. 

Honolulu. HI 

(S081 84e-2[B8 

3rd Fri, every month 

2ty64 Hawaii 

P.O. Box 966 

Kallua. HI 96734 

Was Goodpastei 

Commodore Users Group o( Honolulu 

1626 Wilder #701 

Honolulu, HI 96322 

{806)848-2066 

Jay Calvin {608)944-9380 

IDAHO 

GHS Computer Qub 

c/o Giangeville High School 

910 S. D St. 

Giangeville. D 83530 

Don Kisinger 

S.R.H.S Computer Qub 

0*0 Salmon River H S 

Hlggins. ID B3549 

Dftrnuy Foster 

Commodore Useis 

548 E. Center 

Pocatsllo, ID 63201 

(208)233-0670 

Leroy Jones 

Eagle Pock Commodoie Users Group 

900 S Emerson 

Idaho falls. ID 83401 

Nancy J, Picker 

64 Bug (Boise Users Group] 

PO. Box 276 

Boise, ro 83701 

(208) 344-S302 

John Rosecians 

ILLINOIS 

Shelly Wermkoff 

2731 N. Milwaukee 

Avenue 

Chicago. IL 60647 

VIC 20W Useis Support 

Group 

t/o David R Taivin 

114 soaik Street 

Pana.E. 62557 

(217) 562-4568 

Central Illuiois PET User 

Qroup 

636 Maple 

Mt. Zlon. 0.62549 

fZlT) B64-5320 

Qintact: JimOldfidd 

ASMOIDUseraioup 

200 S. Century 

Rantoul, IL 61866 

(217) 893-4577 

Contact: Brant Anderson 

PETVlCCiub(Fi/C) 

40 S. Lmooln 

Mundelein, IL 60060 

Contact: Paul Sclunidt, 

President 

RocMoid Area PEP Users 

Group 

1608 Benton Suoel 

Rockford,!. 61107 

Commodore Useis Qub 

1707 East Main St. 

Qney.IL 62450 

C(M:itact: David E Lawless 

VIC Chicago CTub 

3832 N.BeU Ave 

Chicago, IL 606 18 

John L. Bosenoaitfin 

Chicago Commodoru 64 

Users & Exchange Group 

PO B«x 14233 

Chicago. IL 60614 

JimRobmson 

Fox Valley PET Users 

Group 

633 Willow St 



Lake m the Hills, IL 60102 

(312) 658-7321 

Art DeKneef 

The Commodore 64 Users 

Group 

PO. Box 572 

Glen Ellyn. IL 60137 

(312) 790-4320 

Gus Pagnotta 

RAP 6*VIC Regional 

Assoc. ofPiogiammeia 

10721 S, Laraon 

Oak Lawn. IL 60453 

Bob Hugh^ 

The Kankakee Hadters 

RR #1, Box 279 

St Anne, IL 60964 

(815) 933-44C7 

Rich Wosterman 

WIPUQ 

Rt 5. Box 75 

Quincy, IL 62301 

(217) 656-3671 

Edwaid Mills 

Papug-Peoria Area Pet Users Group 

6 Apple TYee Lane 

East Peoria, IL 61611 

(309)673-6635 

Max Taylor 

2ndFn of Month 

McHonry County Commodore Club 

4900 S. Route 31 

Crystal Lake, IL 60014 

(815)455-3942 

JtrfinKatkus 

2nd Sat of month 9 to 12 a m. 

INDIANA 

PET/64 Usais 

10136 E. 96tli St. 

Indianapolis. IN 46256 

(317) 842-6353 

JefTV Bnnson 

Cardinal Sales 

6225 CoKman Road 

Indianapolis, IN 46268 

(317) 298-9650 

Contact' Carol Wheder 

CHUG (Commodore 

Hardwaio Users Group) 

12104 Meadow Lane 

Ooklandon, IN 46236 

Contact To<i Powell 

VIC Indy Club 

PO Box 11543 

Indianapolis, IN 46201 

(317) 89S-8023 

Ken Ralston 

Notthern Indiana 

Commodore Enthusiasts 

927 S. 26th St. 

South Bend. IN 46615 

EncR. Bean 

Commodore Users Group 

1020 Michigan Ave. 

Logansport, IN 46947 

(219)722-5205 

Mark Bender 

Computer Worlishop VIC ZyGi Club 

282 S 600 W. 

Hebron. IN 46341 

(219) 988-4535 

Mary O'Bringer 

The National Science Clubs 

of AmsncB 

Cdmmodoie Users Divisian 

7704 "H* St 

MerrfflviIIe. IN 46410 

Brian Lopley or Tom Vtesic 

East Central Indiana VIC User Group 

Rural Route #2 

Portland. IN 47371 

Stephen Erwm 

National VIC 20 Program Exchange 

102 Hickory Court 

Portland, IN 47371 

(219) 7Z6-4202 

Stephen Eiwm 

Commodoie Computet Oub 

3814 Terra 'IlacE 

EvansvUle, IN 47711 

(812)477-0739 

John Patrick. President 
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CommodoTo 64 Useis Group 

91 Z South Brown Ave. 

Tene Haute, IN 47803 

(312)234-5099 

Dermic Graham 

Seymnui Peekers 

c/o D&L Camera Shop 

108 N Qiesmui 

Ssymour, IN 47274 

DamUs Pewts 

IOWA 

Commodore Usei Group 

IMBthSt 

Ames, lA 50010 

Quad City Commodore Cluh 

172t Grant St 

Bettendoif, lA 52722 

[319)355-26<11 

John Yigos 

Siouxland Commodore Club 

2700 Sheiidon St, 

Sioux City. lA 51104 

(712) 258-7903 

Gary Johnson 

1st & 3id Monday of month 

4Z1 W. 6th St, 

Waterloo, JA 50702 

(319) 232-1062 

Fiedoiick VoUtei 

Commodoro Computer Usors 

Group of Iowa 

Box 3140 

Dss Moines, lA 50316 

[515) 263-0963 or (515) 287-1378 

LauiB MiUer 

Commo-Hawlc Commodore 

Users Group 

P,0 Box 2724 

Cedar Hapids.IA 52406 

Verri Rotert 

KANSAS 

Wichita AiBO PET Users Group 

2231 BuUinger 

Wichita. KS 67204 

(316) 836-0518 

Contact: Mel Zandler 

Kansas Commodore 

Computer Qub 

101 S. Burch 

Olatho. KS 66061 

Contact: Paul B. Howard 

Commodate Users Oroup 

6050S. 183SI, West 

Viola. KS 67149 

Walter Lounsbeiv 

Walnut Valley Cammodore 

User Group 

1003 S Znd St. 

Arkar\sas City, KS 67005 

Bob Moms 

KENTUCKY 

VIC Connection 

1010 S, Elm 

Henderson, KY 42420 

Jim Kemp 

LotuEville Users o! Commodore KY 

(LUCKY) 

P.O. Box 22244 

Louisvine, KY 40222 

(502)425-2847 

2nd Tlies.ot Month 

The Bowling Green Commodore 

Users Group 

Houts ILCieeksidsApt. #6 

Bowling Groon, KY 42101 

(502) 7ai-9098 

Alex Fltzpatrlck 

LOUISIANA 

Franklin Parish Computer Club 

#3 Feu Ave. 

Winnisbato,lA7lzg5 

James D, Mays, Si. 

NOVA 

917 Gordon St 

NewOrleana, LA70117 

(504) 94B-7643 

Kenneth McG ruder. Si. 

VIC 20 Users Group 

5064 Bowdcsi St. 

Marrero, LA 70072 

(504) 341-5306 

Wayne D, LoWRry, R,N 



64 -Club News 

5551 Corporate Blvd. 

Suite 3L 

Baton Rouge, LA 70808 

(504)766-7408 

Tom Parsons 

3rd Tubs, of month at CWA 

Commodore Users Qioup of Oachrta 
FO. Box 175 
Sv/arrc. LA 712S1 
(31B) 343-BOM 
Beckio Walker 

Ark- La -Tex Commodore 64 Club 

198 India Dr. 
Shieveport, LA 71115 
(31 Bl 797-9702 
PetoWhaley 

Commodore 64 Users Group 

PO. Box 1422 

Baton Rougo, LA7(»2l 

Richard Hood 

3idT\ioa of month 

MAINE 

COM- Vies [CommodorsA/IC 

Users Group) 

RFD*1. Box 2086 

Hebron. ME 04238 

(2C7) 966-3841 

Paul Lodge 

1st Wod, & 3rd Thura, 

Youi Commodore Users Croup 

Box 611 

Wesibrook, ME 04092 

(207)854-4579 

Mike Precise 

MARYLAND 

Assoc, of Personal 
Computer Useis 
6014 Rodman Road 
Bethesda, MD 20016 
Blue TUSK 
700 East Joppa Road 
BaJUmoie. MD 21204 
Contact JimHaufl 
House of Commodore 
8835 Satyr Hill Road 
Baltimore, MD 21234 
Contact: Ernest J. Fischer 
Long Lines Computet Club 
323N Charles St, Rm 201 
Baltimore, MD 21201 
Qone Mo(f 

VIC ae-J Users Group 

Tlie Boyds Connection 

21000 Clarksburg Rd. 

Boyds, MD a)S41 

(301) 428-3174 

Tom DoReggi 

Rockviile VIG'64 Users Group 

PO, Box 8805 

RockvUlo, MD 20856 

(301)231-7823 

Tom Pounds 

The Compucats' Commodore 

Computer Club 

680 W. Bel Air Ave. 

Aberdeen, MD 21001 

(301) 272-0472 

Betty Jane SchueJet 

Westinghouse SWI 

Commodore User Croup 

Attn: L Barron 

Mall Suip 5156 

PO. Box 1693 

Baltimore. MD 21203 

HUG (Hagerstown Users Group) 

23 Coventry Lane 

Hagetstown, MD 21740 

(301)787-3728 

Joseph Rutkowskl 

The Montgomery Ct. CWnmodoie 

Computot Soc. 

PO. Box 6444 

Silver Springs, MD 20906 

(30!) &46-1664 

Merylo Pounds 

Commodore Users Group 

of Annapolis 

PO. Box 9726 

Arnold, MD 21012 

(301)974-4548 

The Sodwaie Co. 



MASEACHUSETTTS 

Eastern Massachusetts 

VIC Users Group 

c/o Frank Ordway 

7 Flagg Road 

Marlboro. MA 02173 

VIC Users Group 

0*0 Ueno HoHman-Sholai 

193 Garden St 

Needliam. MA 02192 

Commodore Users Club 

Stoughton High School 

Stoughlon, MA 02072 

Contact: Mike Lonnon 

Berkshire PET Lovers 

CBM Users Group 

Taconrc High 

PltlEfield, MA 01201 

The Boston Computei 

Society 

Three Center Plaia 

Boston, MA 02108 

(617) 367-8080 

Mary E. McCann 

Masspet Commodore Ub«ih Group 

RO, Box 307 

East Taunton, MA 02718 

David Rogers 

Raytheon Commodore Users Group 

Raytheon Company 

Hartwell Rd GRA-6 

Bedford, MA 01730 

JolinRudy 

Commodore 64 Users 

Group o( The Betkshires 

184 Highland Ave. 

PHtsfield, MA 01201 

Ed Rucinski 

VIC Inteitace Club 

48 Van Cliff Ave 

Biodrton, MA 02401 

Boinle Roblchaud 

Cape Cod 64 Users Group 

358 Forrest Rd. 

S. Yarmouth, MA 02664 

1 (800) 225-7136 

Jim Close 

(In MA. call) 1 (800) 352-7787 

The Cursor Qub 

442Mu]pufRd 

Lunenburg. MA 01462 

(617) 582-0529 

John 

Pioneer Valley ViC/64 Club 

34 Bates St 

Westfield. MA 01085 

(413) 562-1027 

Marvm Yale 

JtdThurs of month 

MICHIGAN 

David Ltem 

14361 WaiwiekSueel 

Detroit, Ml 48223 

VIC Usere Club 

University of Michigan 

School of Public Health 

Ann Aibot, MI 48 109- 

Contact: John Gannon 

Commodore User Club 

32303 Columbus Drive 

Watron. Ml 48093 

Contact: Robert Sielnbrechor 

Commodore Users Group 

c/o Family Computer 

3947 W. 12 Mile Rd 

Berkley. Ml 46072 

VIC for Business 

6027 Orchard Ct. 

Lansing, Ml 48910 

Mike Marotta 

South Computer Club 

South Ji. High School 

45201 Owon 

Belloville, Ml 43111 

Ronald Ruppen 

Commodore Users Group 

c/Q Eaton Rijpids Medical Clinic 

101 SpicerviUe Hwy. 

Eaton Rapids, MI 48827 

Albert Melnke IH, MD. 



South East Michigan Pet 

Users Group 

Box 214 

Faimington. Ml 48024 

Norm Eisenbeig 

Commodore Computei Club 

4106 Eastman Rd. 

Midland. MI 40640 

(517) 835-5130 

John Walley 

9:30 p.m. Sept/May 

VIC, 64, PET Users Group 

8439 Arlis Rd 

Union Lake, Ml 48085 

363-8539 

Bert Searing 

COMP 

486 Micfiigan Ave 

MarysviltQ, Ml 48040 

(313)364-6804 

M. ifiauthier 

Ann Arbor Commodoie Users Group 

Ann Arbor, MI 48103 

(313) 994-4751 

Art Shaw 

3rdTues. 7 30-10:00 

DAB Computer Cnub 

PO Box 542 

Waiorvliet. Ml 49098 

(616) 463-5457 

Dennis Buikngham 

West Michigan Commodores 

o'o R. Tliber 

1952 Cleveland Ave, S.W. 

Wyoming. MI 49509 

(616) 458-9724 

Gene TYaas 

Debug 

PO. Box 196 

Berrien Springs. MI 49103 

(616)47MB82 

Herbert Edward 

Last Thursday of Month 

Jackson Commodoie Computei Club 

201E.DrinnallSt. 

Jackson, MI 49203 

Alfred Bruey 

Last Thur. of Month 7 :30 p.m. 

SMCUG 

1002 Plau St 

Manknto, MI 56001 

(507) 625-6942 

Dean Otto 

SEM64 

25015 Five Mila #3 

Bedfoid, Ml 48239 

(313) 537-4153 

Gary GroeUer 

C.ATO. 

17606 Valade 

nivorvinw, MI 48192 

Dean Tidwr-Ol 

MINNESOTA 

MUPET (Minnesota Users 

of PET) 

PO. Box 179 

Annan dale, MN 65302 * 

c/o Jon T. Minench 

Twin Cities Commodoie 

Computer Club 

6623 Ives Lane 

Maple Grove, MN 55369 

(612) 424-2425 

Contact: Rollie Schmidt 

Biainerd Area Commodoie Users Group 

1219 S.E lltliSt. 

Brainerd. MN 56401 

(218) 829-0805 

Norm Saavedia 

IstThurs. 6 p.m. & 3rd Sat. 10 am 

MISSISSIPPI 

Commodore Biloxi 

User Group (ComBUG) 

Unlveraol Computei Soivices 

3002 Hwy. 90 East 

Ocean Sprmgs, MS 39564 

(601)875-1173 

John Lassen 

Hissouni 

KCPUG 

(Commodore User GiCTup of 

Kansas City) 
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P.O. Banc 36492 

Kansas City, MO 64111 

(816) 252-7628 

SaJvadora 

Commodoto Usei Gioup o( Si. Louts 

60x6653 

St Louis, MO 63125-0653 

Dan We:dm,3n. Niiw Mombeta 

1641 Swallowtail Dr. 

St. Louis. MO 

VrClNFONET 

P.O. Box. 1069 

Branson, MO 65616 

(417)334-6099 

Joiy Shoiman 

Worth County PET Usots 

Group 

Qinnt City, MO 

(8161 56^-3551 

David Haidy 

Mid-Mieeouil CoromodotB Club 

1804 Vandivar Or 

Columbia. MO 65201 

(314) 474-4511 

Phil Bishop 

Joplin Commodote Computeis 

Users Croup 

422 S. Florida Avo. 

Jopiin. MO 64801 

n. D. Connaly 

MONTANA 

Powder Rivar 

Computer Club 

Powder River County 

High School 

BroaduB, MT 59317 

Contact Jim Sampson 

ComrnodtjiB Uaar Club 

1109 West Broadway 

Butte, MT 59701 

Contact Mike McCarthy 

NEBHAEKA 

Greater Omaha Commodore 64 

Users Group 

2932 Leawood Dr 

Omaha. NE 68123 

(4C2) 292-2753 

Bob Quiseriberry 

NEVADA 

LasVegns PET Users 

Suite 6-315 

5130 E Charleston Blvd 

Las Vogas, NV 89122 

Gerald Hasty 

Compu Club 64 

4220 S. Maryland Parkway 

BIdg. B— Suite 403 

Las Vegas. NV 89109 

(702) 369-7354 

Cindy Springfiald 

NEW JERSEY 

Commodore Friuiidly Uiiai Qioup 

49 HeiBhay Rd 

Wayne, NJ 07470 

(201) 696-8043 

Hi«h Pinio'Colin Campbell 

Somerset Users Club 

49 Marcy Street 

Someraet.NJ 08873 

Contact: Robert Hoizei 

Educators AdMisory 

P.O. Box 186 

Modford, NJ 08056 

(609)953-1200 

John Hnndfield 

VIC-TIMES 

46 Wayne Street 

Edison, N J 08817 

Thomas R. Moll^ar 

VIC 20 User Group 

67 Distlor Ave 

W CaldweD. NJ 07006 

{201)284-2281 

G. M Amin 

VTC Software Development CI uh 

77 Fomalhaut Ave. 

SeweU.NJOBOao 

H. P. Rosenberg 

ACGNJ PKTAnc/CBU 

User Group 

30 Rlvetview Tetr. 



Bella Mead. NJ 03502 

(201)359-3862 

J. M. PylKa 

South Jersey Coromodore 

Users Club' 

46 -B Monroe Path 

Maple Shade, NJ OB062 

(609) 667-9758 

Mark Orthnei 

Parslppany Computer Oioup 

SlFejnelilfHd 

Morns Plains. NJ 07960 

(20!) 267-S231 

Bob Searing 

Information 64 

16 W. Ridgevfood Ave 

Rjdgewood, NJ 07450 

(201)447-4432 

DavB Gamffa 

NEW HAMPSHIRE 

Northern New England 

Computer Socjety 

P.O. Box 69 

Berlin. NH 03570 

TBHVIC-NlCs 

P.O Box 981 

Saiem, KH 03079 

C-64 USERS User Software 

Exchange Pro 

PO. Boit4022 

Rochester. NH 03867 

Paul Kyle 

NEW MEXICO 

Corrimtxlore Users Group 

6212Karlson.NE 

Albuqueique, NM 87113 

(605)821-5812 

Danny Byme 

NEW YORK 

Capital District 64/VIC 20 

Users roup 

363 Hamilton St. 

Albany NY 12210 

(518) 436-1190 

BillPizat 

Long Island PET Soaoiy 

Ralph Biesslet 

HatborfieldB HS 

Tkylflt Avenue 

QiBenlawn. NY 11740 

PET User Club 

ol Westchester 

P.O. Box 1280 

Whito Plains, NY 10602 

Contact. Ben Meyer 

LIVE {Long Island 

VIC Enthusiasts) 

17PtcadillyRoad 

CrealNeck, NY 11023 

Contact Arnold Friedman 

Commodore Masters 

25 Croton Ave. 

Staten Island, NY 10301 

Contact Stephen Farkouh 

VIC Users Club 

76 Radford St 

Staten Island, NY 10314 

Contact: Michael Frantz 

West Chester County VIC 

Users Group 

P.O. Box 146 

Pelham, NY 10552 

Joe Brown 

SPOG 

4782 Boston Post Rd 

Pelham. NY 10603 

Paul Skipski 

VIC 20 User Club 

151-28 22nd Ave. 

Whitegtone, NY 11357 

Joan F Coppda 

VICZOUsetClub 

339 Park Ave, 

Babylon. NY 11702 

[5161 669-9126 

Gary Overman 

VIC User Group 

1250 Ocean Ave. 

Brooklyn, NY 11230 

(212) 669-3030 

Dr. Levitt 



L&M Computer Club 

VIC20&64 

4 Clinton St 

TViHy. NY 13159 

(315) 696-8904 

Dick Mldislson 

Commodore Users Group 

1 CorHfin PI 

Lake Katrine. NY 12449 

J. Richard Wnghl 

VIC 2(yCommodoro 64 

Users Group 

31 Maple Dr 

Undenhurst. NY 11757 

{516) 957-1512 

Pete Lobol 

VIC Intormaiion Exchange 

Club 

336 W, 23 St, 

Deer Park, NY 11729 

Tom Schlegol 

S ASE & phone please 

New York Commodore 

Users Group 

380 Riverside Dr., 7Q 

New York. NY 10025 

(212) 566-6260 

Ben TuiUielang 

Hudson VaSay Cominodois CtUb 

1 Manor Dr. 
Woodstock. NY 12498 
F-S Gob 

Iflt Wednesday o( month 

LIVICS (Long Island VIC Society) 

20 Spyglass Lane 

East Setauket, NY 11733 

(516)751-7844 

Lawrence Stefani 

VIC Users Group 

c/o Stonoy Brook Learning Centoi 

1424 Stoney Brook Rd. 

Stoney Brook. NY 11790 

(516)751-1719 

Robert Wuitiel 

Poughkeepsie VIC User Group 

2 BrooMands Farm Rd 
Poughkeepsie, NY 12601 
(914) 462-4518 

Joe Steinman 

VIC 20 User Group 

Papoi Service Division 

Kodak Park 

Rochester. NY 14617 

David Upham, Si. 

Manhattan 64 

Cb Steve LaiaiDwltz 

1440 Freeport Loop 

Brooklyn. NY 11239 

(212) 647-4266 

Larry Thompson 

Aduondack Commodore 64 

Users Group 

205 Woodlawn Ave 

Saiatoga Springs, NY 

(518) 5S4-6960 

Paul Klompas 

Hockland County Commodore 

Users Group 

P.O Box 573 

Nanuet. NY 10965 

RossCaiboi 

New York 64 Users Group 

222 Thompson St. 

New York, NY 10012 

(212) 673-7241 

Bruce Cohen 

Finger Lakes Commrxlore 

Users Group 

c/o Rose City Computer Associates 

229 West Union St. 

Newark, NY 14513 

(315)331-1185 

The Commodore Users Gioup 

Rochester 

78HaidlsonRd. 

Ftochewaj. NY 14617 

(716)644-6261 

Tom Weronski 

Phone Evenings between 7-10 

Commodore Computer Club 

Publications Dept . 

Grumman Aerospace 

1111 Stewart Ave, 



Bethpage, NY 11714 

(516) 575-9558 

Neil Threulsen 

Hello. Centrall 

76-12 35th Ave. 

Jadcsan Heights. NY 1 1372 

Jared Shetmun 

VIC 20/64 Users Group 

NYU Waveily Place 

New York. NY 10003 

(212)358-5165 

Lawrence Schulman 

SCUG (Schenectady Commodore 

Users Grojp) 

c/o the Video Connection 

Canal Square 

Schenectady, NY 12305 

Timothy Davjs 

1st Mon. of Month 

Commodore 64 Users Group 

SUN.Y at Oswego 

Dept. of Industnal Arts 

Oswego. NY 13126 

John R BoEonkay 

NORTH CAROLINA 

Amateur Radio PET Users Group 

RO. Box 30694 

Raleigh, NC 27622 

Conuict: Hank Rotli 

VIC Users Club 

0^0 David C Fonenberry 

Routfi 3. Box 351 

Lincolnton. NC 28092 

Microcomputer Users Club 

Box 17142 Bethabara Sta. 

Winston-Saiem. NC 27116 

Joel D. Brown 

VIC Users Club 

Rt. 11, Box 686 

Hickory. NC 28601 

Tim Gromlovits 

Raleigh VIC 2(V64 Users Group 

41 OD Delta Court 

Gary. NC 27511 

(919) 469-3862 

Larry Diener 

Down East Commodores 

302 Belltown Rd. 

Havolock. NC 28532 

(919) 447-4536 

Bruce Thedin 

TYyon Commodore 64 Club 

PO. Box 1016 

■nyon. NC 28782 

(704) 859-6340 

Robm Michael 

lstMon.ofmonthal7p.m. 

omo 

Dayton At ea PET 

User Group 

933 Livingston Drive 

Xenia, OH 45366 

B, Worby, President 

(513) B'ie-2065 

J Watson. Secretary 

(513) 372-2052 

Central Ohio PET Uaets Group 

107 S. Westmoor Avenue 

Columbus, OH 43204 

(614) 274-0304 

Contact: Philip H. Lynch 

Commodore Computer Club 

ol Toledo 

734 Donna Dnve 

Temperance. Ml 49162 

Get aid Carter 

Chillicotho Commodote 

Users Group 

P.O. Box 211 

Chillioothe. OH 45601 

William A, Chaney 

Licking County 64 Useis Oioup 

323 Schular St. 

Newark, OH 43056 

(614)345-1327 

11433 Pearl Rd 

SuongavillB, OH 44136 

Paul M. Warner 

CP.U. Connecuon 
FO, Box 42032 
BrookPark. OH 44142 
Danni Hudak 



126 POWER/PLAY June/July 1984 



SE Cleveland Cotnmodore Ciazies 

18813 Harlan Dr. 

Maple Height, OH 44137 

(216) BSl-3099 

Call Skala 

Commodore Users of 

Blue Chip (Cincinnati) 

816 Bee Cher SL 

Cincinnati, OH 45208 

(513) 961-6582 

IVxlStalets 

South western Ohio Commodflre 

Ussis Group 

P.O. BCK 399117 

Cincinnati, OH 4S239 

2iid Wed. of month at 7 p.m. 

S.W.O.C.U.Q. (SW. Ohio 

Commodore Usera Op.} 

8401 Wicklow Ave. 

Cincinnati, OH 4B236 

Joe Beiesford 

OKLAHOUA 

Southwest Oklahoma 

Computer Club 

(^0 Commodoie Chapter 

P.O. Box 6646 

Lavrton, OK 73604 

1 : 30 at Lawton City Library 

Tulsa Area Commodore Useis Group 

Tulsa Computer Society 

P.O. Box 1523a 

TulBa, OK 74112 

Annette Hinshaw 

Commodoie Oklahoma Users Club 

4000 NW :4th St. 

Oklahoma City, OK 73107 

(405) 943-1370 

Stanley B. Dow 

Commodoie Users 

Box 268 

Oklahoma City, OK 73101 

Monia Maker, Ptesldenl 

Commodoie Usera of Noiman 

KHBicokwood 

Noble, OK 73068 

Matt Kagei 

Commodore Users Group 

Muakogee Computer Society 

202 S. 12th St. 

Muskogee, OK 74401 

Steve Ford 

OBIQON 

NW PET Users Group 

John F Jones 

2134N.E. 45th Avenue 

P(»tland,OR3r7213 

U.S. Commodore Users Group 

PO. Box 2310 

Boseburg, OR 97470 

(603) 672-7591 

Richard TsuklH 

Southern Oregon VtCyM 

Useis Group 

3600 Madrona Lana 

MedfQid, OR 97501 

(603)779-7631 

James Pow^ 

PSHNSYLVANIA 

PET User Group 

Gene Seals 

P,0. Box 371 

MontBcmoryvUle, PA 18936 

Penn Conference Computet Clirb 

Co Penn Conference of SDA 

720 Museum Road 

Reading. PA 19611 

Contact; Dan R. Kr>app 

PACS Commodoie Users Group 

LaSaHe College 

20th &01ney Ave, 

Philadelphia. PA 1^41 

(216) 951-1258 

Stephen Longo 

Olen Schwattz 

807 Avon 

Philadelphia, PA 19116 

Gene Flanchak 

4820 Anne Lane 

ShatpsviHe, PA 15150 

(412) 962-9682 

PPG (Pittsburgh PET Group) 

c/a Joel A. Casar, Dt/D 



2015 Garrrck Drive 
Pittsburgh. PA 16235 
(412)371-2882 

Westmoreland Commodoie 

Useis Club 

t/o DJ & Son Hectionics 

Colonial Plaza 

Latiobe. PA 15650 

Jim Mathers 

Commodoie Usais Club 

3021 Ben Venue Di 

Gieensburg. PA 15601 

(412) 836-2224 

Jim Matheis 

VIC 20 Piogiammeis, Inc. 

c/o Watson Woods 

115 0;d Spring Rd. 

ContosvUle. PA 19320 

Robeit Qojgher 

Q.R.C. User Club 

300 Whitten Hollow Rd. 

New Kensington. PA 15068 

Bill Bolt 

NADC Commodoie Users Qub 

248 Oak dale Ave 

Hoisham. PA 19044 

Noiman McCrary 

CACC [Capitol Area Commodore 

Club) 

134 College Hill Rd. 

Enola, PA 17025 

(717)732-2123 

Lewis Buttery 

Union Deposit MaH at 7 p.m. 

CC Computet Owners Group 

0*0 Gilbert Associates, Inc. 

PO. Box 1496 

Reading, PA 19607 

Extension 6472 

Jo Lambeit (215} 775-2600 

Booing Emptoyeos Personal 

Computai Qub 

The Boomg Veitol Co. 

P.O. Box 16868 

Phlladalphla. PA 13142 

(215) 622-2257 

Jim McLaughlin 

South Centia! PA Commodore Club 

2109 Cedar Run Dt. 

Cenip Hill, PA 17011 

(717) 763-4219 

David Perslng 

Mam Line Commodoie Users 

Oioup (MLCUG) 

Co Mam Line Computei Centei 

1046 Geneial Allen Lane 

Westchester, PA 19380 

(215) 388-1581 

Emd Volcheck 

Commodore Users Group 

7B1 Dick Ave. 

Woiminstoi. PA 18974 

Matt Matuloltls 

The Commodoie Usees Club 

of SE. Pittsburgh 

Co Giov^ AppUance & TV 

2407 Pannsytvonia Ave. 

West Mifflin. PA 15122 

Charles Groves 

Compstais 

130 Blue Teal Circle 

Audulxpii. PA 19403 

Mike Noim 

Meet at Audio Video Junct. 

Scranton Commodoie Users Group 

PQ. Box 211 

Clarks Summit. PA 18411 

Chfton Heights Users Gioup 

PO. Box 235 

Qifton Heights. PA J901S 

OxfordCircle 64 Users Group 

Frankfoid Cong. Un. Church of Christ 

Oxfoid Ave, & Pratt St, 

Philiidolphla, PA 19124 

(215) 743-0999 

Eogai Naieley (215) 535-9021 

4th Wed o( Month 

VIC Soltwaie Development Club 

440 W Sedgvinck 

Apt A-1 

Philadelphia. PA 19119 

(215) 844-4328 

Ttacy Lee Thomas 



Bits 8s Bytes 

1016 Dale Rd. 

Eecane, PA 19018 

(216) 544-5875 

Dave Boodey 

CAGCC-Contro Ataa Commodore 

Computer Club 

214 Computer Building 

Univeislty Park. PA 16802 

(814)237-5912 

BlU HiUnei 

PUERTO RICO 

CUG of Puerto Rico 

RFD #1. Box 13 

SanJuan, PR 00914 

Ken Burch 

VIC 20 User Gioup 

655HemandoiSt. 

Miraroat, PR 00907 

Robert Moiales. Jr 

HROOE ISLAND 

Irving B. Silverman. CPA 

160 Tkunion Ave. 

E Providence, RI 02914 

Contact: MicheUeChavaime 

Newport VIC64 Users 

10 Maitland Ct 

Newport, RI02B40 

(401) 849-2684 

Dr Matt McConoghy 

The VIC 20 Users Club 

Warwick. RI 02886 

Tom Davey 

Commodoie Useis Group 

Co Data-Co. 

97S Tiogue Ave. 

Coventry, RI 02816 

(401) 828-7385 

Victoi Moflett 

SOOTH CAROLINA 

Beaufort Technical CoUeSA 

lOOS. RlbaucRd. 

Beaufort. SC 29902 

Dean of Instruction 

Computet Usets Society 

of Greenville (CIJS) 

Hoiiion Recoids-Home Computeis 

347 S. Pleasantburg Dr, 

CieenvillB.SC 29607 

(803) 235-7922 

Bo Jeanes 

Commodore Computei Club 

of Columbia 

318 Quincannon Dr. 

Columbia. SC 29210 

Buster White Sect/Iteas, 

Spartanburg Commodoie 

Useis Gioup 

803 Lucerne Di, 

Spentanbuig, EC 29302 

(803) 682-5897 

James Pasley 

SOUTH DAKOTA 

PET User Group 

515 South DuH 

Mitchen, SD 67301 

(605)996-8277 

Contact: Jim Dallas 

VIG'64 Users Club 

603 West 5th 

Plena, SD 57501 

(605) 224-4863 

Larry Lundoon 

TENNESSEE 

River City Computer 

Hobbyists 

Memphis. TN 

1st Mon. at Main Libiaiy 

Nashville Commodoie Users Group 

P.O. Box 1212B2 

NBShviUe, TN 37212 

(615) 331-5408 

Dave Rushing 

3id Thurs. at Cumberland Mus 

Commodore User Club 

Metro Computei Center 

1600 Dayton Blvd. 

Chattanooga, TN 37405 

Mondays 7 :30 pm 

Metto-KnoxvUo Commodore 

Users Club 

7405 Oxmooi Rd , Rl #20 



KnoxviUe. TN 37921 
(615) 938-3773 
Ed Pritchaid 

Memphis Commodore Us^ra Group 
2476 Redvers Ave. 
Memphis. TN 38127 
(901) 358-5823 
Hatiy Ewart 
TEXAS 
PET Users 
20O1 B.-yan Tower 
Suite 3800 
Dallas. TX. 75201 
Larry Williams 
POD Box 652 
San Antonio, TX 78293 
PETUsot Gioup 
John Bowon 
Texas A Si M 
Mlciocompulei Qub 
Tiaxas A & M. TX 
CHUG (Commodoie Houston 
Users Group) 
S738 WildfoiBSt 
Houston, TX 770S8 
(713) 999-3650 
Contact: John Walker 
Commodore Users Group 
5326 Cameron Rd. 
Austin. TX 78723 
(512)4591220 
Dr Jetry D. Frazee 
VIC Users Group 
3817 64th Dr 
Lubbock, ra 79413 
64 UsejaCioup 
2421 Midnight Circle 
Piano, TX 75075 
S.G Gtodln 
Savld Computei Club 
312 Woat Alabama 
Suite 2 

Houston, TX 77006 
Davi Joidan, Chairman 
Gull Coast Commodore 
Useis Gioup 
PO. Box 128 

Coipus Chiisti, TX 78403 
(612) 807-4577 
Lawionco Haitmndez 
Mld-ClUea Commodoie Club 
413ChlmlniTtail 
Hurst. 1X76063 
Bruce Nelson 
Interface Computei Qub 
814 Noith Sablnas 
S an Antonio, TX 78207 , 
M E Garza, President 
ICUG (living Commodore 
Users Gioup) 
3237 Northgata #1289 
Iivlno. TX 75062 
(214) 262-7017 
Robert Hayes 

Commodore Computer Chib (C3) 
Co Lamai FuH Gospel Asombly 
1200 S Sumner 
Pampa, TX7S065 
(806)665-3444 
Randy Mills 

Every other Thuis. 7 p.m. 
UTAH 
Utah PUG 
' Jack Fleck 
2236 Washmgton Blvd. 
Ogden.UT 84401 
The Commodoie Users 
Club 

742 Taylor Avenue 
Ogden.UT 84404 
Contact "Ibdd Woods Kap. 
President 
David J. Shiesve, 
Vice President 
Tlie VICllc 
799 Pondciosa Diive 
Sandy. UT 84070 
Contact: Stave Graham 
VIC 20 Users 
324 N. 300 W. 
Smlthfi6ld.UT 84335 
Dave DeCoiso 
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Northern Utah V[C& 64 

Users Group 

P.O. Box B33 

Gailand. UT 84312 

David Sanders 

The Commodoto UsetB Group 

652 West 700 North 

Cl«arMd,tJT8401S 

(801)770-3950 

Rodney KeUst, Richard Brenchly 

Mountain Computer Society 

PO. Box 1154 

Sandy. UT 84091 

Dave Tigner 

VDIGIHIA 

Northern VA PET Usera 

Bob Karpen 

2045 Eoklns Court 

Raston, VA 22091 

(803)860-9116 

VIC Users Group 

Rt. 2. Box 180 

LyncJibuig,VA 24501 

Contact: Dick Rossignol 

VIC Users Group 

0*0 Donnie L. Thompson 

1602 Harvard Rd, 

Richmond. VA 23228 

Dale City Commodnie 

User Group 

PO. Box 2004 

Dale City. VA 22 193 

r?03) 680-2270 

James Hoglei 

Tidewater Commodore 

Users Grpup 

4917 Westgrove Rd. 

Virgmia Beach. VA 23455 

Fred Monson 

Fredenckaburg Area 

Computer Enthusiasts 

RO. Box 324 

Locust Grove, VA 2250S 

(703) 972-7195 

Michael Parker 

VIC 20 Victims 

4301 Columbia PiJte #410 

Arlington. VA 22204 

[703)920-0513 

Mike Spengel 

Peninsula Commodore 64 

Users Group 

124 Burnham Place 

Nev^ort News, VA 23606 

(8M) 595-7315 

Richard G Wilmoth 

Norfolk Users Group 

1030 West 43rd St. B-4 

Noiiolk, VA 23508 

409-8292 

Latry Penison 

NASA VIC 20 User Group 

713 Voik Warwick Dt. 

Yotktown. VA 23692 

Harris Hamilton 

135 Beverley Rd, 

DanviHe. VA 24S41 

David Gray 

R.A.C.E. Commodote Users Group 

4726 Horseman Dr. 

Roanoke. VA 24019 

(7(X3) 362-3960 

Larry Rackow 

Commodoio Usoie o( FianWin 

1201 N High St 

Fiankltn, VA 23851 

(804) 562-6823 

0. Bruce Powell 

WASHINOTON 

NW PET UsBrs Group 

2565 Dexter N 3203 

Seattle. WA 98109 

Contact RichaidBaU 

PET Users Group 

(j'q Kenneth Tong 

ISOO Taylor Ave. N102 

Seattle, WA 98102 

Whidbey Island Commodore 
Computer Club 
947 N. Burroughs Ave. 
Oak Harbor, WA 98277 
Michael D, Clark 



Central Washington 
Commodore Users Group 
1222S. IstSt. 
. Yakima. WA 98902 
Tim McHroy 

Blue Mountain Commddore 
Users Gub 
IE Stone St. 
Walla Walla, VIA 99362 
(509) 525-5452 
Keith Rodua 

Spokane Commodore User Group 
N. 4311 WhitehousB 
Spoltane.WA 99205 
(509) 328-1464 
Stan White 
CBM Users Group 
803 Euclid Way 
Coniralia,WA 98631 
(206)736-4085 
Riok Beober 
Computer Club 
c^o Honeywell. Inc. 
5303 Shiishole Ave.. NW 
Seattle. WA 98107 
[206)789-2000 
JohnGoddard 
WEST VIRGINIA 
Per son aJ Computer Club 
PO Box 1301 
Charleston. WV 25325 
Cam Cravens 
TriSeate Commodore Users 
73 Pine Hill Estates 
Kenova,WV 25530 
(304)453-2124 
Marc Hutton 
Commodoie User Group 
73 Pine Hill Estates 
KsnovB, WV 25530 
(304)453-2124 
Marc Hutton 
WISCONSIN 
Sewpus 

c/o Theodore J. Poloiynski 
P.O. Box 21851 
Milwaukee, WI 53221 
Waukesha Atea Conunodore 
User Group (WACUG) 
256^1 W Broadway 
Waukesha, WI 53186 
Contact: Walter Sadler 
(414) 547-9391 
Commodore 64 Software 
Exchange Group 
PO. Box 224 
Oregon. WI5357S 
£. J. Rosenberg 
CLUB. 84 
6156 Douglas Ave. 
Caledonia. W 53108 
(414)835-464Spm 
Jack Whrte 

2nd Sat every month 10.00 am 
VIC-2n & 64 User Group 
622 West Bagen Dt. 
Milwaukee. WI 53217 
(414) 476-S125 
Mt. Wachtl 

Menomonie Area Commodore 
Users Group 
610 12th St 

Menomome, WI 54751 
(715) 235-4987 
MlkeWiJlianis 
C.US.S.H 
3614 Sovereign Dr. 
Raane, W1S3406 
(414) 554-0156 
Tim Tremmel 
3rd Saturday ol month 
Madison Area Commodore 
Users Group 
1S52 Park St 
Middleton, WI 53662 
(606)831-4852 
John Garvin 
3rdThuts, each month 
S.W.I.TC.H. 
W156N8834 Pilgrim Rd. 
Menontionee Falls, WI 53051 
(414) 255-7CM4 
Lon Lull 



Milwaukee Area CBM64 

Enthusiasts (M. A. C.E.) 

P.O. Box 340 

Elm Grove. WI 53122 

(414) 259-5891 

Kevin Wilde 

The Eau Claire CBM 64 

Users Group 

Rl. 5, Box 179 A 

Eau Claire, W 54703 

(715) 874-5972 

John Slavsky, Jr. 

2ndThurs 7 pm. 

WAVE 

PO. Box 0641 

Waukesha. WI 531B7 

WYOMINQ 

Commodore Users Club 

lyo Video Station 

670 North 3id#B 

Laramie, WY 82070 

(307)72l-59OB 

Pamela Nash 

CANADA 

Toronto PET Users Group, Inc. 

1912A Avenue Rd., Sle. 1 

Toronto, Ontario, Canada 

M6M4A1 

(416) 782-8900 ot caU 41 6 ■782-9252 

Contarrt Chris Bennett 

PET Users Club 

c/o Mr. Brown 

Valley Heights Secondary School 

Box 159 

Langton, Ont. NOE IGO 

Vancouver PET Users Group 

RO Box 91164 

Wast Vancouver. British Columbia 

Canada V7V 3 N6 

CCCC (Canadian 

Commodore Computer Qub) 

q/o S ttt ctly Commodore 

47 Coachwood Place 

Calgaiy, Alberta, Canada 

T3H lEl 

Contact: Roger Olanson 

W.P.U.O, 

9-3(X) EnniskilJen Ave. 

Winnipeg. Manitoba R2V 0H9 

Larry fleufeld 

VIC-TIMS 

2-830 Helena St. 

Itail, British Columbia 

V1R3X2 

(604) 363-9970 

GregGoss 

Arva Hackers 

Medway High School 

Arva. Onlatlo NOM ICO 

D. Larch 

Nova Scotia Commodore 

Computer Users Group 

66 Landrace Cies. 

Dartmouth, NS.B2W2P9 

Andrew Comwali 

BonnyviUe Vlc Cursors 

Box 210O 

Bonnynlle, Alberta TOA OLO 

(403) 8:26-3992 

Ed Wittclien 

Commodore Users C^ub of Sudbury 

938 BrooWield Ave. 

Sudbury. Ontario 

P3A4K4 

PUT Educators Group 

PO Box 454 Station A 

Windsor, Ontario 

N9A 6L7 

COMVIC 

P.O. Box 1683 

St. Laurent 

MbnUoaJ, Quebec 

H4L4Z2 

Calgary (Tommodoie Users Group 

37CastloildgeDr.,N.E. 

Calgoty, Alberta 

T3J1P4 

John Hazard 

Fledging Barrle User Group (BUG)' 

58 Steel St. 

Barrie, Ontario 

Canada L4M 2E9 



f INTRUDER ALARM | 
for VIC 20TM or Commodore 64tm | 




Intruder Interface includes: 



t. V1DD Aiirm inltrlact 

2. Four Magri^ilc Switches 

3. Pietcing 95dl] Sirtn 

4. IOC n twiJTM Mil* 

5. Aiarm Mftwafe 

Total System Only $69.00 

plus 12.79 lor posuge and tiandllng 



SpKify Computti ind Mamory 
n VIC JOTM D Comrrmdwe 64T:M 
n [Nili D CuMlta 



MdrMi 

City 



.Sialg. 



_2fp_ 



Phone Number ( 
MC or VISA f _ 
EiplDllon DatB_ 



Send Chech. MO. . VISA /MC Is: 



VIN Systems (U.S.A.) PO Box 31 
Boone. IdWii 5003S 



VIC Zfl ind Commfldon M in tndamirk) p( 
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Academy Software 
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Commo€loK*s 
New Intematkutal 



is as close 
to real soccer 
^ as you can get 
wittiout putting 
§on cleats! 
^: Realistic player 
and ball movement 
higtiligtit ttiis 
stunning version 
of the most popular 
sport in tlie world. 




Players can head the ball. 



Players cttase down 3 free! 
goat kick. 




ft commc3dore 

^ COMPUTERS 

First In Quality Software 



>v.v-.v:;v.v./.''i';''(Ji(ioi'l -' 



throw'lns. 



